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RSSTRAC T 

This diagnostic will functionally tast tha hardware opticns on 
tha LA36 terminal. 

Up to 48 terminals, including tha consola davica, can be t « * tad 
at a time. Oil tarminals undar tast mutt ba intarfacad thru a DL11 
t y pa intarfaca. 

Control of this diagnostic mau ba thru a switch ragistar, or via 
intaractna consola terminal commands. 


i.i Functional Description 

Tha program will first datarmina if tha systam has a hardwara 
switch ragistar. If nona available a softwara switch ragistar at lot 
17b will ba assigned. 

Tha program wilt than datarmina what davica lntarfacas ara on tha 
systam, at tha standard DL1 1-0, B, C, D, E addratt and tha interrupt 
vactor of aach intarfaca prasant. This information will than ba 
storad in a tabla. 

Tha program will than ask tha oparator if he/sha want* to use 
consola control. If tha rasponsa is “no* tha program will halt and 
wait for tha oparator to ontar control information thru tha switch 
ra gi s tar . 

Note If no hardwara switch ragistar is prasant control is forcad 
to consola control. 

If consola control is salactad a manu of availabla commands will 
ba prmtad or tha consola tarminal, and tha program will wait for 
commands via tha consola. 


B.2 REQUIREMENTS 
2.1 EQUIPMENT 

This diagnostic was written to run on all modsit of tha PDP-11 
omputar, including tha LSI-11. Ona to fourty aight LR36 tarminals, 
crractad thru a single lira asyncronous intarfaca (DL11-R thru E, 
-11-k, DL/il), may Sc tasted. BK of memory is required. 

- hardware switch register is supported, but not required. 


L 



E01 

Pag* 4 


SEC. 0004 


5.2 0° T ICN5 

Tk >a following options ara taatad by this diagnostic: 

ASCII/APL charactar sat. 

Salactiva Addrassing Option. 

Au to-Answar back Option. 


Top-ol-f orm Option. 

Horiaontal & vortical Tab Option. 


5.3 RELATED PROGRAMS 

Although soma arror chocking is dona, this diagnostic doss not 
functionally tost th* basic LA3b tarminal, nor ths tarminals 
l n ! < r f aca . 

Tharalor* tha basic LA3b tarminal diagnostic, MDEC-11-DZLAC-*. 
and tha DLll-*/DLV-ll intsrfaca tost should b* sueassfully run prior 
to this diagnostic. Also any othar applicabl* procastor /manor y tilts. 

3.0 LOADING S INITIALIZATION 

This diagnostic mau ba loadad using tha standard procadurat tor 
papar tapa, or via xXDP madia. This diagnostic will not run in 
chamad mods bacausa manual intarvantion is raquirad. Tha abioluta 
loadar araa is prasarvad. 

This diagnostic salt mas tha systam as far at tha intarfacat, 
and tnair intarrupt victors. Tha only oparator modifications to ba 
mad* ara: 

i. t*a location ’TIMER’ which it a CPU dapandant TIME contatont. 

S a a listing of DELAYM Rout in*. 


TIMER: .WORD 


DELAY!: .WORD 


SET FOR 11/35 - 11/40 
SET TO 802 IF 11 'Q3 

851 11/05 - 

314 11/15 - 

8187 11/45 Bl 

1837 11/45 - 

755 11/45 

DELAY TIME BUFFER 


11/05 - 11/10 
11/15 - 11/80 
11/45 BI B OLAR - 11- 55 
11/45 - MOS - 11/70 


any of tn* prasat davica addrass to accomodata a non-standard 
irtarfaca addrass. (Sa* Sact 7.0 for datallt) 

location ’ WIDTH" if othar than 138 COL PAPER it bairg uttd. 
'Sa* section L !.3). 'Common for all tarminals) 

,al sla'ting addrass is SOD'Bj , ard all rastarts at 1375. 
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■4.0 CONTROL S TEST SELECTION 

The diagnostic will ask (via tha consols) if consols control is 
dssirsd. ftnswer 'Y' if you want to uts interactive commands, 
otherwise type *N* tor switch register control. 

If 'Y' is tyoed a menu of available commands is printed on the 
console, and the program will wait for command input. If *N* Is (used 
the program will print a listing of the line (interface) table. Then 
-alt for the operator to set the switches to the desired parameters. 
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*4 . i SWITCH REGISTER CONTROL 

Uhin SUITCH REGISTER CONTROL s tilictid thi program will hilt. 
Sit thi switchis to thi dll 1 rid modi, thin priis continui. Thi 
p-ogram will chick thi intru ind if • tpiciflc Ini tt to bl run, or a 
spicific lini it to fai tniid thi progrim will hilt igain. Entir thi 
disirid lini-'tut data in thi switchis. thi prist continui. 

to changi paranitirt thi tist mutt bi rattartid at loe 1372. 

Ai_L of thi twitch functions ari alto aval lab li undir eonsoli 
control modi. (Sii net. 4.2.H.3). 

SUITCH REGISTER BIT DEFINITIONS 


FIRST 

WORD 

MODE SELECTION 

3IT15 

= 1 

(UP) 

HALT ON ERROR 


=0 

iDOWN) 

CONTINUE AFTER REPORT 

SITU 

= 1 

(UP) 

LOOP AFTER ERROR IS DETECTED 

DON'T LOOr 


=0 

( DOUN ) 

5I T I3 

=1 

(UP' 

INHIBIT ERROR REPORTS 

PRINT ERROR REPORTS 


=0 

(DOUN) 

BITI2 

=1 

(UP) 

PRINT INTERFACE TABLE 


=0 

(DOUN) 

DON'T PRINT TABLE 

BIT11 

=1 

(UP) 

INHIBIT ITERATIONS 


=0 

(DOUN) 

NORMAL RUN 

EI T fa 

=1 

(UP; 

RUN ALL TESTS IN SEQUENCE 

RUN SELECTED TEST ONLY 


=0 

(DOUN) 

BITS 

- i 

f UP > 

RUN ALL AVAILABLE LINES 

RUN SINGLE LINE ONLY 


=0 

(DOUN) 

SECOND 

UORD 

i LINE AND 

TEST NO. 


3IT15 - BITS SELECTED LINE NUMBER (00-57) 
EIT7 - SITC SELECTED TEST NUMBER ( 0-5 ) 


■*.2 CONSOLE CONTROL 

Ukm consol i control is silictid a iainu of avallabld commands is 
typid on thi eonsoli tirmmal. Thi program will wait for commands to 
bl intirid thru thi kiyboard. 

Entir oni command par lini, followid by a earrtaaa return, To 
tirirnati command input and start axicution typa an ALimodl or ESCapi. 

To 'again control onci axicution has bigun typi a CTL-C. Thi 
prcgrair will ritpcnd with 'RERDY'. You can now mtir thi district 


Pigi fa 
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commands 1 us I at in startup. 


4.3 COMMANDS 

T h«r* are two types of commands available, interactive commands; 
and static commands. 

ALL static commands can only be antarad while in "Command Mode", 
that is during startup after 'READY* ts printed on the console, or 
after the operator has invoked command mode bu typing a CTL-C and the 
program has printed 'READY'. 

Interactive commands can be antarad at enu lima, and are 
essentially the tame as the switch register bits 15,14,13. 

"he available Commands are: 

5 (STATIC) Single Lina Mode. Test a single 

device. Lina DO is default. Use add command 
to select the desired line. 

M (STATIC) Multi Line Mode. Test all lines 

present and not deselected. 

2 (STATIC) Sequence thru all tests, starting 

with test 0. 

Rr (STATIC) Run test N. 

Zr (STATIC) Deselect or Drop from testing 

interface line N. (sec T command) 

A- (STATIC) Add line N. Clear out the 

error count for line N, and reselect the 
line for testing. In single line node 
sets N as current line to test. 

T (STATIC) Type out a listing of tho interface lines 

present on the system, the vector address at 
which the device interrupts, and weather or 
not the line is selected. 

(STATIC) Changes location ’Width' to N. Used 
tc control output of terminal tests. Enter N 
as an Octal number 32 to 20M. (132 dc<ina)) 

-"L-L (interactive) Loop on error. If an error 

is detected the program will start looping 
or the test section which caused the error, 
ard continue to loop until a Klear 
command is issued. 

In command mode type an L, 



CTt-H 
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CT^-P 


ESC 
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in Unci vi ) Halt on irrar. Uill dull the 
p-oarem to halt aftar tha arror message is 
p-inted. (assumeing arror printouts ara enabled 
In command moda typa or H. 

v 1 n t a r a c 1 1 » a ) Klaar - ratatt both tha H and L 
commands (Don’t halt, Don't loop). 

In command moda typa a C. 

i i n tarac 1 1 ya ) NO Error raportt. Inhibits 
tha printing of normal arror massagas. 

In command moda typa an N. 

(interactive) Print arror re^orta. ALL raport 


massagas will ba printad on 
In command moda typa 


conso 1 a . 
P. 


v mliractiva) Mill causa tha program PCPLAGS 
to ba displayad on tha consola for 
troubla snooting purposas. Saa listing for 
bit dafinitions. 

Exit command moda & start siscution of 
tha diagnostic test(a). 

Raturns tost to command moda. 

A1 1 operations in prograss stop. 


4.4 EXAMPLES & HINTS 

Test numbers □ thru 5 may ba selected to run individually on all, 
o' any terminal. 

ALL tests cm be run sequentially on all or any terminal. 

Tests can be run sequentially on a temlnel. but there is little 
chance that anu terminal will have more than ana or two Of those 
options installed. Sequencing all tests will probably result in 
numerous errors from trying to test non-exlstant options. 

If a line gets mare then lb errors It will be deselects# by the 
program end e message will be printed on tha consola. If tha line it 
the cnly one being tasted it will automatically ba re~selected. 

Example 1. tha commands to select teat §4 to ba run on oil lines. 

READY 

R04CCR) - Run test 4 

M(CR) - Multi line moda 

U120'CRj - Set paper width to 120 

I - ESC - echoed as S 
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E lamp la 2. the command* to run all last* on lin* 
no. Ob. with Halt on ifor *«t. 

READY 

QiCR) “ Sequence last* 

S(CR) - Small line moda. 

AOSiCR) - Add line »Ob 

rt(CR) - Halt on arror 

§ - ESC - achoad as S. 

EX£Mp_£ 3 . How do I run lasts on 10 out of IS tarminali. 

first you must ba in command moda. It a tast is running type 
CTL-C. Tha program will respond with "Ready". Now tups D nn 
<cr) to dasalact lina numbar nn. Repeat tor each additional 
lina to ba droppad from tna lasts, now salaet your tast other 
paramatars as in Exampla 1. 

EXAMPLE M . Hew do I rastart a davtca which has baan deselected 7 

In command moda typa Ann I'cr) whara nn is tha lina numbar of 
tna lina to ba added. 

EXAMPLE 5. How do I loop on arror. 

It tha tast is running typa a CTL-L. Whan an arror is 
datactad tha program will start to looo on tha tast or subtsst 
and continua to loop until a CTL-K or CTL-C command is issued. 

If in command moda typa L (CR). 

EXAMPLE b. Can I sat tha ’width’ constant different for each 
tarmi na 1 7 

Tha constant ’width’ is the same tor all terminals, although 
it may ba changed any time you are in command moda. 


5.0 5C0PE OF TESTS. 

This diagnostic will functionally tast tha following hardware options 
of tha LA3b. 

1 . Secondary character sat option APL^ASCll character sat 
selection 

2. Selective addressing option 

3. Auto-answar back option 
Top of forms option 
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5. Hor i ion U1 and Vertical tabluation option. 

T *\e diagnostic will do cursory tasting of tha basic interfact, and 
basic Lh 3S logic. It is assumed that tha basic interface, CPU/memory, 
and LA3E> tasts have been run successfully. 

Due to the nature of the hardware under test most error checking will 
be by visual inspection of the terminal output by tha operator. 

Description Of Tests 


5.1 Test 0 Secondary Character Set. 

This test is an output only tast, No terminal feed back It received. 

The test prints on each terminal alternating linet of ASCII character 
set, and HPL character set. 

Output of characters per line will consist of char codes HO thru 17fe 
urless the paper widtn limit it reached first. 

Output format: 

PRIMARY (ASCII CHARACTER SET) 

SECONDARY— (PPL CHARACTER SET) 

This output is controlled by the "width” of the paper. See U command 
| description. 


5.2 Test 1 Selective Addressing Option 

Tms test will alternately send out a select code. followed bu it's 
ASCII Equivelent, for all possible select codas (20 thru 177 ). 

This test will also deslect all terminals and try to output a "this 
should not print** message. **A11 terminals should be off** 

This test will also try to print “this should not print** massages 
after transmitting 'nUL* select character sequences, and no select 
codes sequences. 

Valid terminal output should be: Select Recognised = /NN( Group Select 
'-ode) /NN( Ind l v i due 1 Select Code)'" 

Where NN represents the select codes recognised by this terminal. If 
the group select code and individual select codes are set to the same 
thing them only one /NN/ should appear. 

More than two /nn/ codes printed indicates a logic failure in the 
decoder section of the option, or possibly interface to terminal line 
problems. 
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Pnu of t h t "this should not print” message that appear on the terminal 
1 n li : 1 1 < * failure of the selection logic. 


5.3 T«st 2 Auto Ansuir Back Option 
This t«st is divided into sn subtexts: 


Sub 1 s s t -1 


Th« first subtsst is actually * siting routins. Ths terminal should 
rsspond to its unique selection code wi th on answerback when polled. 
This test hes no way of knowing whet the enswer beck is. nor any uiu 
of ’pre-selecting’ its unique selection code. Therefore subtest -I 
will try ell legal selection codes to tee If it een cause an enswer 
beck to be transmitted. If one is received the program will store the 
select code associated with the response in the line table for furture 
testing. 

Subtest -2 


Will see if any enswer beck hes been received, end check its length, 
the message should not exceed 20 llO) characters. Subtest 2 will 
print the ASCII message on the terminal, end an octal representation 
of the characters 'to verify non printables ere being transmitted 
correctly, and as a trouble shooting aid if bad data is being sent out 
from the switches). 


Subtest -3 

Will read the answer back ten times to verify reliability of the data, 
and lines. * * 


Subtest -4 


Will try to cause transmission of the answer back in response to a 
broadcast code. 


Single Line Mode - Subtests 5, and 6. 

Sub test -5 

The test will request the operator to press the ’Here-is* key, then 
check for answerback. 

Sub test -b 


The test will request the operator to type ’CTL-E’, then check for 


The operator must verify that the message echoed back to tha terminal 
is correct, by comparing it to the data switch configuration. 
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5.4 T»st 3 Top Of Forms Optjon 

This t«st is divided into two sublssts, on« for multi lint mods, the 
othsr for single line mods. Opsrstor intsrvsntion will b« rsquirsd 
for ths Single Tins test. 

1 . Multi 1 ins mods . 

This subtsst will sssums a standard form of 11 inchss being 
ussd. 

Ths test will issus a form fsed, than print a tins of dashss. 
This FF/dashes is repeated 3 tlmss. 

Ths opsrstor should verify corrsct opsration by chocking for 
a lino of dashss at ths sams placs on sach pags. 

c. In am 9 1 ! lino mods, This tsst will require ths opsrstor to 
sst ths forms length switch to ths valus requested. Ths tsst 
will thsn do three form foods at sach Isngth sotting. 


5.5 Tsst 4 Hornontal Tab Option 


This tsst will adjust it’s 
Change location “width” to 
(Praia t to 132 col . ) Mots: 


output to conform to ths 
ths appropnata valus bsfors 
sss U command description. 


paper width, 
starting test. 


The tsst will print a rsfsrsnca lino for visual verification. Ths 
lino will look like this: V.....V V V 


Tabs will thsn bs sst corrosponding to ths location of each V. Ths 
tsst will thsn issue a tab and print an X. tab thsn X etc until ths 
lino is complete. Three lines of X’s will bs printed. All X' s 
printed should bs aligned with ths rsfsrsnca line V f t. 


This will bs rspsatsd for various (7) values of tab spacing. 


Example of output 

V W Vi \J 

X X X X 

X X X X 

X X X X 



V V V 

X XX 

X XX 

X XX 
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5.b Test 5 Vertical Tab Option 

This tast is divided into two subtasts, ona for multi lina modi, tha 
othar for singla llna moda. Tha singla llna moda tast requires 
oparator 1 n t ar van 1 1 on . 

riulti lina moda subtast 

Will sat tabs at intarvals of 1 lina, 2 linas, 3 llnas ate. up to 11 
linas. Tha tast will than issja a *art. tab than print a lina of 
dashas, than repeat until 1 full paga has bean dona. Three pagas of 
output are run Tor 1 pass of tast. 

Singla lina moda tasting involvas tha oparator to sat up tha forms 
control to 11 inch forms, and than procaads with tha sama subtast as 
for multi 1 l na moda. 


1.0 ERROR REPORTING 

Thara will ba tour basic sourcas of arror mastagas. First tha system 
in ar, sacond tha command dacodar, and third tha diagnostic tasts, and 
tha I/O drivars. 

3.1 Diagnostic Tasts 

Gil tast arror massagas will ba 3 linas of output. A standard format 
lina, shown balow, and a dascnptiva massaga tailing what want wrong. 

Std. Fm t . : TERROR XXY TEST YY LINE ZZ 

whara XXX = tha arror numbar local to tha currant last. 

YY = tha currant tast numbar. 

ZZ = tha lina undar tast. 

an aiampla of a dascnptiva massaga : 

.NO ANSWERBACK MEASSAGE RECEIVEO 

As aach arror is handlad a routina will update an arror count for tha 
failing lina. If lb arrors ara accumulated on a llna. that line will 
be deselected** and tha following massaga will ba displayed. 

EXCESSIVE ERRORS . . LINE XX DROPPED. 

If the ina undar tast is tha only line being tasted tha program will 
automatically ra-salact tha line, taro tha count, and continue tasting 
after typing tha following: 

LINE RE-SELECTED FOR TEST. 
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fe.S I C Dfl*ir 

If th« 10 Driver finds no available line to tsst < message u. 11 be 
displayed end then control will return to the "reedy" state. 

NO LINES AVAILABLE FOR TEST. 

■377 Multi line driver error. 

Error messages tegges et *377 indicete e failure during en I/O 
driver operation, such es e failure to interrupt an transmit to a 
terminal with the interrupt enable set. 

*37fc 

Same as «377 except a single line Driver. 
s.3 Command Decoder 

Console terminal command errors will be handled by a CF1DERR moduli l 
will output a line of if the input was invalid. 

If a line selection coaaand tires to add (re-select) an invalid or non 
existent line a — LINE INVALID message will be typed. 

3.4 System Sixer 

If during the suing operation the sixing routine detects a failure of 
the interface to interrupt ,t will be reported. 

ex: 'NO INTERRUPT ON TXNIT LINE 37’ 


7.0 PROCEDURES FOR N0N-5TAN0ARD DEVICES. 

T h * * diagnostic can be modified for use on device! that have 
non-standard i n ter f ace addre sses by replacing an unused address in the 
line table with the address of the inter face’] Ine lo be tested. 

No mod i f i ca t i on need be made because of non-standard interrupt vector 
addresses. The diagnostic sixes each address for presence on the 
system, and inserts the interrupt vector data Into the table at run 
’ HI « 

NOTE: The table addresses are not In ascending order, rather It has 

been cptomixed for relative system site by having the most 
commonly used addresses at the head of the Table. 0L1I-A.B 
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lAFAC i_A35 TERM TST MAC) 11 30A.1052 
uAFA.^n Q3-JAN-7B 11:20 


03-JflN-'V 00:01 
TABl.E OF CONTF.NTS 


04200 

08500 

12540 

14840 

22020 

00700 

05450 

05550 

11555 

15500 

0025C 

43150 


gfflf H«" 

TEST CONTROL 


IONS 


s initialization 
LINE CONTROL & INITIALIZATION 
SWITCH REGISTER ROUTINES 
CONSOLE TERMINAL ROUTINES 
ERROR & REPORT ROUTINES 
INTERFACE SIZER ROUTINES 
EMT HANDLER 
I/O DRIVERS 
TRAP ROUTINES 
CONVERSION R0UTINE5 
LA35 OPTION TESTS 
STORAGE & CONSTANTS 
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00200 

.TITLE CZLAPAO LA3& TERM TST 
; •COPYRIGHT (C) 1977 
;#DIGITAL EQUIPMENT CORP. 

;#MAYNARD. MASS. 01754 

; • 

;#PROGRAM 8. R.SCHfiUBER 
; * 

; •THIS PROGRAM UPS ASSEMBLED USING THE 
j#PPCKPCE (MAINDEC-11-DZQAC-C3) , JPN 19 

iTN=l 

*SWR=lbOOOO ; ; HAL T ON ERROR. LOOP ON TEST. INHIBI” ERPCP ’<P0^ 


PDP-11 MAINDEC SrSMAO 
, 1977. 
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OPERATIlSu INSTRUCTIONS ************* ******************* » 

THIS TEST ASSUMES THAT THE BASIC INTERFACE 
LOGIC TESTS & BASIC LA3b FUNCTIONS TEST 
MDEC-1 1-D2LAC-X HAVE BEEN RUN SUCESSFULLY. 

TIMING FOR ALL TESTS IS DEPENDENT ON CPU T TPE . 

THE TIMER IS SET FOR AN U/MO...IF THIS IS 
NOT THE CASE CHANGE LOCATION ’’TIMER" 

ACCORDING TO THE TABLE SUPPLIED IN THIS LISTING. 

THE DIAGNOSTIC WILL START BY ASKING IF THE OPERATOR 
WANTS TO USE CONSOLE TERMINAL CONTROL, ANSWER < OR h. 

IF Y IS ENTERED. A “MENUE" OF AVAILABLE „0MMAND5 IS 
PRINTED ON THE TERMINAL. AND THEN THE PROGRAM WAITS 
FOR INSTRUCTIONS THRU THE KEYBOARD. 


OPHJB 

DECODE THE SU 

enteA ?he deI 

THE OESIRED L 


S ENTERED. THE PROGRAM WILL PRINT A LISTING OF 
CES BY Lite NUMBER. THEN HALTS. SET THE SWITCHES 
DcSIREO MODE AND ARESS CONTINUE. THE PROGRAM WILL 
THE SWITCH REGISTER, AND IF RUNNING A SELEC7E0 
R * SCWeCTEQ LINE, WILL HALT AGAIN. 

HE DESIMD TEST NO! IN THE LOW ORDER BYTE. ANO-OR 
IftED LlfC NO. IN THE HIGH ORDER BYTE. PRESS CONTINUE. 


IF NO HARDWARE SWITCH REGISTER IS PRESENT ON THE SYSTEM 
THE PROGRAM WILL USE LOCATION 17fe AS A SOFTWARE SUITCH 
REGISTER. CONTROL WILL DEFAULT TO THE CONSOLE ! 


TO CHANGE MOOES TYPE CTL-C. 

THE CONSOLE WILL RESPOND WI T H READY . 

ENTER YOUR COMMANOS FOLLOWEO BY AN ESC. 
INTERACTIVE COMMANOS SUCH AS CTL-G MAY BE ENTERS! 
DURING COMMANO, OR RUN MOOES. 


OR RUN MOOES 


TABLE 


SELECTED. 


ALL LINES PRESENT WILL BE INITIALLY SELEC 
IF YOU AOO OR DROP LINES USE THE u INE NO. 
SPECIFIED IN THE LINE T A8LE LIST. 


.u.i j iiMJUKmmnajUHDimuuj j j i j j t j i i jcrcrrr (r<ru'(PtrcririJH 


qFAD ^P3fc T ERf' 'ST MAC i'll 30m 1052 
■prp. c :. C3-JPN--3 11:20 
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llfeO ;***#*♦ SUITCH REGISTER BIT DEFINITIONS **************** 


=£0 CC19 


0 1 1 6 G 
01180 
01200 
01220 
01240 
012S0 

81188 

01320 

01340 

81118 

01400 

01420 

01440 

014fc0 

01480 

01500 

01520 

01540 

0l5b0 

01580 

OlbOO 

01620 

01b40 

OlbbO 

OlbBO 

01700 

01720 

01740 

017b0 

01780 

01800 

01820 

01840 

OlSbO 

01880 

01500 

01920 


BIT15 


BIT14 


8 1 T 1 2 


BIT 12 


BIT11 


=1 (UP) HALT ON ERROR 
=0 (DOWN) CONTINUE AFTER REPORT 

=1 (UP) LOOP AFTER ERROR 15 DETECTED 
=0 (DOWN) DON* T LOOP 

=1 (UP) INHIBIT ERROR REPORTS 
*0 (DOWN) PRINT ERROR REPORTS 

=1 (UP) PRINT INTERFACE TABLE 
sC (DOWN) DON’T PRINT TABLE 

=1 (UP) INHIBIT ITERATIONS 


=1 (UP) INHIBIT ITERATION 
=0 (DOWN) NORMAL RUN 

si (UP) RUN ALL TESTS IN 
sO (DOWN) RUN SELECTED TEST 

=1 (UP) RUN ALL AVAILABLE 
sO (DOWN) RUN SINGLE LINE C 


N SEGJENCE 
:st ONL T 


DOWN) RUN 


E ulNES 
ONL' - 


SECONr WORD ENTRY VIA SWITCHES 
BIT IS - BITS SELECTED LINE NUMBER 

BIT7 - BITO SELECTED TEST NUMBER 


******** 


ASSIGNMENTS 


TEST 0 
TEST I 
TEST 2 
TEST 5 
TEST 4 
TEST 5 


SECONDARY CHARACTER SET 
SELECTIVE fiOORESSING OPTION 

W°o?wPt!SJ ion 
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98 


104 


IDS 


105 


i n— 


108 

109 

000C2C 

00C005 

110 

000004 

t * • 

AAA 

000200 

1 12 

000015 

113 

000003 

114 

000000 

115 

000007 

.15 

000010 

117 

000013 

ue 

000014 

119 

000015 

12C 

000020 

121 

004000 

• 55 

688858 

124 

000005 

125 

125 

883888 


040000 

129 

.29 

13C 

131 

000033 

300003 

000001 

OOOOC? 

132 

100000 

133 

000200 

134 

177775 

• ")C 

00004C 

135 

020000 

1 j7 

305725 

1 jS 

322525 

139 

000400 

1-*C 

’**1 

8®8S 

14C 

030200 

143 

1t4 

888838 

1 45 

000200 

145 

000240 

14' 

140 

888838 

145 

000005 

ISC 

000002 

ill 

888848 

1S3 

000017 

154 

000015 

15- 

000001 

155 

000002 

157 

01000C 

I S3 

C2C000 


H02 
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01950 

8ii§8 

02120 

02140 

81118 

02200 

02220 

02240 

02250 

02290 

02300 


3l 

02303 

02304 


8Ili§ 


8ii£8 

02380 

81388 

02440 

02450 

8is§8 

02S20 

02540 

02550 

02580 

02500 

02520 

02540 

02550 

02580 

8i?88 

02740 

8I?I8 

02800 

02820 

8IS&8 

□2880 

02900 

81158 

02950 

02980 

03000 

03020 

03040 

0305C 


; LOCAL PROGRAM EQUATES 


IT4 


ABO = 
flck' = 

ADDC = BIT2 

ATTN = BIT7 

CR * 15 
CTLC = 3 
CTLCNT = C 
CTLG = 7 
CTLH = 10 
CTLK = 13 
CTLL = 14 
CTLN = 15 
CTLP a 20 
OBTAIN = 01711 

BfeoPC T3 

5 



■OT 
ESC = 33 
FTX = 
FLAG! 
FLAG2 


3 

= BITO 
= BIT! 
HALTOE = BIT15 
HftLTC * 8IT7 
ICNT = -2 
INHR = BITS 
IHHRPT a BIT 13 
ISP * 5725 
ISP2 a 22525 
LDONE * BIT8 

l88?8e = 

PRI4 a 200 

mi i 

SEE a BIT7 
NOP * 240 

B8$Sr% 2 &c 

POINT a 5 
PASCNT a 2 

Sio = fe 


SI = 17 
SO a 15 
SOH a 1 
STX a 2 

PRINTT a BIT 12 
TDONE = 8I T 13 


TEG 0020 


{LINE A0OP T FlAG 


{LINE PRESENT FLAG 


: INC 5P 2 
; INC SP 4 


PRIORI! - ! 4 

M ^ 

- 6 

LINE 5ELEC T flag 


!i_*4RhO i_P3fc 

TERM T5T 

:_*Ffl. = ii 

03-JAN-7I 

159 

lOOOQO 

160 

002000 

161 

001000 

162 

000200 

163 

000100 

164 

000040 

165 

000020 

166 

000020 

lb' 

100377 

168 

000004 

169 

177S64 

170 

177566 

171 

177560 

1 72 

1775bc 

173 

000060 

174 


1~5 

104000 

104002 

I ’6 

■ 

104304 

: - 3 

1040C6 
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JOE 

PPOE 1-5 


iai 


000000 

182 

OOOOQO 

000002 

193 

000002 

000000 

184 

000004 

00000b 

185 

000005 

ooooao 

185 

000010 

000012 

187 

000012 

000000 

188 

000014 

007152 

189 

000015 

000200 

190 

000020 

007415 

191 

000022 

000200 

192 

000024 

001372 

193 

000025 

000000 

194 

000030 

005152 

195 

000032 

000000 

205 


000172 

207 

000172 

000000 

208 

000174 

000000 

209 

000175 

000000 

210 

000200 

000137 

211 



21 a 

1 1 3 



(23 
( 1 ) 



, 1 3 


000204 

1 1 


000045 

( 1 t 

000045 

001102 

< 1 3 


000052 

( 1 ; 

000052 

020000 

(ii 


000204 

213 


001100 

214 

001 100 

00024C 


03500 

03520 

03540 

03550 

03580 

03500 

03520 

03640 

03550 

03580 

03700 

03720 

03740 

03750 

03780 

04000 

04020 

04040 

04050 

04080 

04100 


04140 

04150 


; T PAP CATCHER 


MRCHER: 


SWTEST: 

SULINE: 

SSWR: 


INTRAP 

PR 1 4 

TXTRAP 

PRI4 

RESTRT 

PRIO 

EMTBOS 

PRIO 

. *172 

.WORD 

.WORD 

.WORD 

JflP 


; BREAKPOINT TRAP 

iUSED DURING SYSTEM SIZER 

jIOT TRAP 

USED BY TXMIT I/O DRIVER 
; POWER PAIL TRAPS TO REST* 


»S TO RESTART 


0 

START 


.SBTTL ACTU HOOKS 


; HOOKS Rl 


BY ACTU 

. »46 

START 

.*S2 

. WORD 20000 
. slSVPC 
.si 100 
NOP 


; SAVE PC 

; ; 1 )5£T L0C.46 TO ADDRESS OP STAR I 

; ;2iSET LCC.S2 TO 20000 
;; RESTORE PC 


K02 
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001102 

001102 

00U005 


001104 

012706 

001100 

001110 

005037 

016152 

016154 

001114 

005037 

001120 

005037 

016162 

001124 

005037 

316160 

001130 

012737 

016114 

001136 

01 2705 

010352 

001142 

004737 

003006 

001146 

012700 

016772 

OGi 152 

104000 


001154 

004737 

005640 

001160 

004737 

006126 

001164 

104002 


001 166 

004737 

003350 

001172 

004737 

003332 

001176 

032737 

000020 

001204 

001011 


001206 

012700 

017051 

001212 

104000 


001214 

012700 

017056 

001220 

104000 


001222 

012700 

017103 

001226 

001230 

104000 


001230 

001234 

004737 

003332 

301224 

032737 

000020 
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CEO 0023 


04200 

04300 

04320 

04340 

04380 

04400 

04420 

04440 


016164 


001364 


001364 


04580 

04600 

04620 

04660 

04680 

04700 

04740 

04760 

04780 

04800 

04820 

04860 

04880 

04800 

04830 

04840 

04860 

04880 

08000 

05030 


05060 

05080 

05100 

05115 

05140 

05180 

05220 

05260 


START: 


. SBTTL TEST CONTROL & INITIALIZATION 

; ************************************** 

]************ TEST MONITOR ************ 
^SFT ; ************************************** 


RESET **************** 

PROGRAM INITIALIZATION SECTION 

MOV »STACK,SP 

CLR NEXT 

CLR INTEST 

CLR NXTLIN 

CLR ONLIN 

MOV ilNSUF . PTR 

MOV ■TOOBLK , RE 

SEE IF SYSTEM HAS A SWITCH REGISTER 

JSR PC.SWRTST 

PRINT TEST IDENTIFICATION MESSAGE 

MOV iPROGID, RO 

TYPE 

DETERMIN 5YSTEM CONFIGURATION **■ 

BUILD A TABLE OF INTERFACE LINES. 

JSR PC .BUILD 

RESTORE TRAP CATCHER FROM 100 TO 1000 

JSR PC. CATCH 

PRtTBL 

FIND OUT IF OPERATOR WANTS TO USE 
CONSOLE OR SWITCHS FOR CONTROL 


JSR 

START2: J$R 
BIT 
BNE 


PC.GETSRC 
PC , CONSON 
•SitCTL.PCFLAG 
500011 


■ PRINT A MENUE OF AVAILABLE COMMANDS 

' MOV IL3.R0 

TYPE 

MOV iHEAORl.RO 

TYPE 

MOV •COMSUM.RO 

TYPE 

500011: 

STARTS: JSR PC, CONSON 

500021 • 

BIT tSWCTL.PCFLAG 
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SEG 0024 


001242 001403 


001244 

001250 

001252 


001252 

001256 

001260 

001260 

001262 

001270 

001272 

001274 


00127 u 

001302 

001304 

001306 

001314 

001314 


001314 

001320 

001324 

001330 

001334 

001342 

001344 

00x352 

001356 

0G1360 

001360 

001364 


004737 

000421 


012700 

104000 

000001 

032737 

001001 

000772 


032737 

001404 

104002 

042737 


004737 

012 7 00 

004737 

004737 

032737 

001406 

042737 

004737 

000726 


003130 


020123 


000200 001364 


010000 001364 


010000 001364 


002110 

020411 

007010 


001446 

004000 

004000 

001372 


000137 001172 


001364 

001364 000001 
001366 000000 
001370 000000 


05340 


05420 

05440 

05460 

05480 

05520 

05560 


05620 

05640 

05660 


05700 


05780 

05800 

05820 

05840 

05870 

05872 

05874 


002032 

002032 


05550 

06020 

06040 

06060 

06080 

06100 

06120 

06140 

06160 

06180 

06200 

06220 

06240 

06260 


BEQ 50004$ 

; IF IN SWITCH CONTROL GET CONTENTS OF SW REG. 

iV M sus 

50004$: 

j IN CONSOLE CONTROL SIGNIFY READY 
AND READ COMMANDS FROM THE CONSOLE. 


50006$: 


•ROY.RO 

TYPE 

WAIT 

■ATTN.PCFLAG 

18883 


50007$: 

! PRINT THE LINE TABLE IF REQUESTED. 


S88&BS; 


BIT 

•PR I NTT, PCFLAG 

Ieq 

S0010S 


PRTTBL 

BIC 

•PRINTT, PCFLAG 


SET UP THE I/O DRIVER AREAS 
SET UP & EXECUTE REQUESTED TEST5. 


50003$: 

50000$: 


PC. LINMOM 

•w16n.ro 

PC.MTYPE 

pc.tstctl 

•e6l.cflags 

SOQddf 

•E0L.CFLAG5 

pc,r£strt 

50£)02S 


; ISSUE A SELECT ALL COMMAND 
IN CASE THERE ARE SELECTIVE 
; TERMINALS ON LINE. 


JMP START2 


6TLBLK 

PCFLAG 

TESTNO 

LINENO 


• * 

# NOTE. . .TYPING CTL-G WHILE IN CONSOLE * 

# CONTROL MODE WILL CAUSE TIC * 

# PCFLAG UORO TO 8E PRINTEO. * 

# * 

; PROGRAM CONTROL BLOCK 

I : PROGRAM CONTROL FLAGS 

0 TESTNO 

Q ; LINENO 


MG2 
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CZLAFA. 

Pll 

03-JAN-7B 

11:20 


TEST CONTROL fc 

INITIALIZATION 

m 





8611? 

PCFLAG BIT 

•*«***•*•»*•*• 

DEFINITIONS * 

327 





06282 

***** 

«»«*»•• 

************** 

3§§ 





86111 

BIT 

15 

HALTOE 

330 





06285 

BIT 

14 

LOOPOE 

331 

332 





8611* 

li! 

11 

INHRPT 

PRINTT 

333 





06288 

BIT 

11 

OBTAIN 

334 

335 





06285 

06280 

BIT 

BIT 

10 

8 

NEWTST 

NEWMOD 

33b 





06281 

BIT 

8 

LDONE 

337 





06282 

BIT 

7 

ATTN 

338 





06253 

BIT 

b 

SEQ 

335 





06284 

8IT 

5 

MULTI 

340 





06255 

BIT 

4 

SWCTL 

341 





06286 

BIT 

3 

DROPC 

342 





06287 

BIT 

2 

ADDC 

343 





06258 

BIT 

J 

FLAG2 

344 





06255 

BIT 

C 

FLAG1 

345 





06300 




346 





06301 




347 





06305 




348 





06306 




345 





06307 




350 





06315 

•ft************* 

351 





06320 

RESTART 


352 





06340 

***** 

******* 

ft** 

353 





06360 



•|TACK.SP 

354 

001372 

012706 

001100 


06380 RESTRT 

: MOV 

355 

001376 

005037 

016152 




CLR 

35b 

001402 

005037 

016154 




CLR 

INTEST 

357 

00140b 

012737 

000001 

001364 

06440 


MOV 

•I. PCFLAG 

nxtlTn 

0NLIN 

358 

001414 

005037 

016162 




CLR 

CLR 

355 

001420 

005037 

016160 




3b0 

001424 

012737 

016114 

016164 

06500 


MOV 

IRSM™ 

3bl 

001432 

004737 

006126 


06520 


JSR 

362 

00143b 

000240 



06540 


NOP 


363 

001440 

000005 



06560 


RESET 


36 u 

001442 

000137 

001230 


36580 


JMP 

STARTS 




CEO 0025 


HALT ON ERROR 
LOOP ON ERROR 
I | REPORT 


ABLE (BW-li 
IN FROM KBD. 

a is hi *■ 


(SU-15; 
(SW-14) 
(SW-13) 


) 


»RIN 
DATR 
CHAN' 

CHAN 

END OF LINE TABLE REACHED 
ATTENTION !!!!!!!!! 

SEQUENCE TESTS MODE 
MULTI LINE MODE. 

CONTROL VIA SWITC.WES. 

DROP LINE COMMAND 
ADD LIWE COHMANO 

MODE 0 * NO CURRENT I/O TO CONSOLE 
1 = IN COMMAND INPUT MODE 
2=1/0 TESTING OF CONSOLE 
3 = ’ 


; REINITIALIZE EVERYTING 


SEG 0025 


NOS 


001445 

001454 

0014b2 

0Q14bb 


001472 

001500 

001502 

001510 

00151b 

001524 

001532 

001532 

001540 

001542 

001550 


00155b 

0015b2 

001570 

001572 


001572 

OOibOO 


0Clb02 
001 bOb 
00 1 b 1 4 
00 1 b22 
001b30 
031534 
001634 


013737 

013737 

004737 

004777 


032737 

001414 

017737 

042737 

042737 

053737 


032755 

001414 

015537 

015537 


004737 

042755 

000421 


032755 

001415 


005255 

042755 

052737 

015537 

004737 


001365 

016152 

002056 

014464 


014416 

003777 

174000 

016100 
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369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 
(9) 

384 

385 
385 

387 

388 

389 

390 
(9) 

391 

392 

393 

394 

395 
395 
397 
3 Q 8 
(3) 

399 

400 

401 

402 
(9) 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 
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016152 

016154 


000020 001364 


016100 

016100 

001364 

001364 


100000 000004 


000004 

000006 


005124 

100377 


002032 

002034 


000004 


020000 000004 


000002 

020000 

020000 

000002 

005436 


000004 

L02032 

002036 


06680 

06700 

06720 

06740 

06760 

06780 

06800 

06820 

06840 

06920 

06940 

06942 

06944 

06946 


06953 


07002 

07004 

07006 


07062 

07064 

07066 


07082 

17084 

17086 


001634 032765 000001 000010 


07222 

07224 

07226 

07228 

07230 

07232 

07234 


TSTCTL THIS SECTION CONTROLS TEST SELECTION TEST 

SEQUENCING, AND INTERFACES TO ERROR AND REPORT 
MODULES AS REQUIRED BY THE TEST MODULES. 

**«**•**•«** 


TSTCTL: 

LOOP1: 

L00P2: 


MOV 

MOV 

JSR 

JSR 


TESTNO, NEXT 
NEXT. INTEST 
PC.S&TEST 
PC.3TESTAD 


; GET TEST NO. 

• GET CURRENT TEST NO. 

;; START TEST 


CHECK FOR ERROR FLAG FROM TEST 


5001 IS: 


BIT 

BEQ 

MOV 

BIC 

SIC 

BIS 


BIT 

BEQ 

MOV 

MOV 


•SWCTL 
5001 IS 


, PCFLAG 


3SUR.TEMP 
•377^, TEMP 
•174060.PCFLAG 
TEMP, PCFLAG 

SMERR , MFLAGs ( RS ) 
500 l?i 

MFLAGStRSKCFLAGS 
POINT (RS) , TSCPTR 


CALL ERROR HANDLER ROUTINE 
JSR PC, ERR OR 

§ jS c Ife ""-** 1 " 51 

S0012S: 

SEE IF TEST IS REPORTING DONE CONDITION 

IT •TDONE.MFLAGSCRS) 

Q 500141 

UPDATE THE PASS COUNT THEN REPORT END OF PASS 

PASCNT ( R5 ) 

•TDONE. MFLAGS ( R5 ) 

•EOP.cf’LAGS 
PA$cftT(RS),TSCCNT 
PC .REPORT 

S0014S: 

50013S: 

IF LOOP ON ERROR IS SET ANO AN ERROR IS 
DETECTED THE ERROR HANOLER WILL MAKE THE 
RETURN ADDRESS OF THE TEST ODD 

CHECK FOR ODD ADORESS IN LOOP MODE... 

BIT •BITQ,RPC(R5) 


oo 

MM 


5EG 0C27 


B03 
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(S' 

4£1 

422 

423 

424 

425 
(9) 
42b 

427 

428 

429 
(3) 

430 

431 

432 

433 
(9) 

434 

435 
43fc 
43' 

438 

439 

440 
(b) 

441 

442 

443 

444 
(9) 

445 
44b 

447 

448 

449 

450 

451 

452 
(9) 

453 

454 

455 
45b 

3) 

457 

458 

459 
(3) 
4b0 
4bl 
4b2 
4fa3 
4b4 
4b5 
< 3 > 
4fcb 


001b42 001413 


001b44 

001b52 

001b54 

001bb2 

001570 

001570 

001572 


001572 

001700 

001702 

001710 


001714 

001720 

001725 


001734 

001742 

001744 

001752 


001755 

001754 

001755 

001772 

002000 

002002 

002004 

002004 

002010 

002010 

002012 


002012 

002015 

002015 

002020 


032737 040000 001354 

001006 
042755 
016537 

000455 


07242 

07244 

07246 

07248 


IF THE 


BEQ 5001 55 
OOP Of ERROR I! 


LOOP Of ERROR IS TURNED 
CONTINUE TEST AT THE NEXT SUBTEST . 


TURNED OFF THEN 


000001 

000010 


000010 

016156 


500165 : 
500 15S: 


026565 

303447 

052737 

005037 


004737 

016565 

066565 


032737 

001423 

013737 

005237 


023727 

003407 

005037 

052737 

000207 

000402 


000002 

040000 

002036 


005436 

000002 

177776 


000100 

015152 

016152 


016154 

016152 

004000 



07342 

07344 

CHECK TO SEE I 

000000 

07346 

CMP 

til 

CLR 

REPORT ENO OF 

002032 



07402 

07404 

000000 

0740b 

JSR 

MOV 

000000 


ADD 


07442 

07444 

IF IN SEQUENCE 

001364 

07446 

Ul 

016154 


MOV 


INC 


BIT •LOOPOE.PCFLAG 

BNE 500161 

BIC if I TO, RPC (RS) 

MOV RPC(fiS) , TESTAD 

BR 500 17S 


PASCNT ( R5 1 , CTLCNT ( R5 ) 
500205 
•EOT . CFLAGS 
TSCCAt 


PC.REPORT 

PA$CNT ( RS ) .CTLCNT ( RS 1 
ICNt (R5) .CTLCNT (R5) 



000005 

002032 


004737 002056 

000402 


004737 

000403 


002056 


07520 

07522 

07524 

07526 

07528 


07600 


07682 

07684 

07686 


•PCFLAG 

.INTEST 


IF NEXT IS R NON EXISTANT TEST SET EOL 
AND RETURN TO NON! TOR FOR NEW COMMANDS 

CMP INI 
BLE 
CLR 
BIS 


BIS 

8R 

JSR 

BR 



_|0L. CFLAGS 
RTS PC 
500235 


PC.SUTEST 
500c 45 


500225: 

500235: 

500215: 

SET UP TEST ADORESS FOR THE SAME TEST AGAIN. 
JSR PC.SUTEST 

BR 500255 


500245: 


500205: 


07742 
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002020 

00202b 

00202b 

00202b 


881835 

00203b 


0020 HO 
002CH2 
0020HH 
0020Mb 
002050 
002052 
00205M 


00205b 

00205b 

0020B2 

0020bb 

002072 

00207b 

002102 

00210b 

00210b 

00210b 


01b537 000010 01bl5b 


000137 OOlHbb 


000000 


OlOlbH 

OlOHHH 

01152b 

013700 

014552 

01535H 

177777 


00b337 

012700 


011037 

00b?37 

0050b5 


000207 


OlblBH 
0020H0 
015154 
OlfalSS 
0 1 b 1 5H 
□00004 


07744 

0774b 


07820 

081b0 

08180 

81138 

08240 

08250 


08340 

083b0 

Q8380 


08420 

08440 

0844 

08442 

08443 

08444 

08445 


08480 

08485 

08490 


RETURN TO TEST VIA ADDRESS SUPPLIED BY TEST 


I88?ll; 


RPC(R5 ) , TESTAD 


L00P2 


feffi 

TSCCNT 

TSTBL: 


.WORD 

.WORD 

.WORD 


TESTO 
TEST 1 
TEST2 
TEST3 

TEST4 

TESTS 

-1 


•pblNfER 

;PASCNT 

: TABLE OF TEST ADDRESSES ******************* 



pointer 


SUTEST: 


500001: 

500011: 


INTEST 


MFLAGS ( R5 ) 


CZ^AFAO wA3fc TERM TST 
:ZLArA. p ll OO-JAN-'B 


002110 

002110 032737 

0021 lb 001427 


032737 

001407 

004737 

004737 

004737 

000410 


013737 

004737 

013737 


D03 

MAC 'i 1 1 30Ak 1052 1 03- JAN-77 00:01 PACE 1-12 

-1:20 W INE CONTROL B. INITIALIZATION 

ngsoo . SBTTL LINE CONTROL l INITIALIZATION 


=eo 0023 


002120 
00212b 
002130 
002134 
002140 
002 14H 
00214b 


00214b 
002 i 54 
002 lbO 
002 lbb 
002 Ibfa 
002174 
00217b 


002176 

002202 

002202 

002202 

0022C2 


002204 


002204 032737 

002212 001426 


0C1000 001364 


000040 0013b4 

002332 

002432 

00255b 


001370 

002432 

OlblbC 


OiblbO 
01b 162 


042 7 37 

000402 


004737 002204 


000207 


7 001000 001354 


81128 

08540 

81118 

08600 

08620 


08680 

8i?28 

08740 

08760 


08880 

08800 

06820 

08840 


08080 

08100 

08120 

08140 


08220 

08240 

08260 


000040 001364 


08300 

08320 

08360 

08380 

08400 


ssr??8ti tfy W®T?K8. 5ErjUE,,c " 


LINMON: 


•NEWMOD, PCFLAG 
50002® 


ieri^s 2 wtScB E !»8s 

DEVICE AODRESSES » VECTORS ETC. 

ig^Tj.pcFLoo 

JSR PC.GVL 

JSR PC, MTU 

9T &8k 


50003S: 




50004S : 


50002S : 


LINENO.ONLIN 

PC.MTW 

onC.in.nxtl IN 

•NEWMOO, PCFLAG 
SOOOSf 


00 LINESEL SECTION FOR EACH DEVICE 
TO BE TESTED. 


S0005S 

50000* 

50001* 


PC. LINESEL 


LINESEL ROUTINE TC FURNISH THE IODRIVER WITH DVC POINTERS 


LINESEL: 

j MULTIPLE LINES UNDER TEST ’ 


IB I8&F CfLft4 

□8440 

0846C ! 5ET UP POINTER AREA WITH OATA FOR 


E03 


CZLAFAO _A3b TERM TST MACY11 
OZLAFA.Pil C3-JAN-~8 11:20 
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002214 013737 016152 016160 


002222 

002230 

002232 

002240 

002244 

002250 

002254 

002256 


002256 

002262 

002266 

002266 

002270 

002270 

002274 

002302 


002304 

002312 

002314 


002314 

002322 

002326 

002330 

002330 

002330 

002330 

0C2330 


002332 

002332 

002334 

002340 

002342 

00234U 


023727 

001012 

052737 

004737 

004737 

004737 

000404 


004737 

004737 

000420 

004737 

032737 

001404 


7 016160 177777 


000400 

002332 

002432 

002556 


002432 

002556 


002432 

000200 


001364 


016126 


737 000400 001364 


052737 

000406 


052737 000200 
□12700 020345 
104000 


300207 


010346 

012703 016170 

005713 

100412 

062703 000010 


016126 


05480 

05500 

05540 

05560 

05500 


05720 

05750 

05780 


05520 

05540 

05560 

05580 


10040 

10060 

looeo 

10100 

10120 


10180 


10260 

10280 

10300 

10320 

10340 

10360 

10380 

10400 

10420 

10440 


; THE NEXT DEVICE TO BE TESTED 
MOV NXTLIN.ONLIN 

| RESET EVERYTHING IF AT THE END OF OUR DEVICE LI3 T . 

CMP 0NLIN.»-1 

8NE 500031 

SIS •LOONE.PCFLAG 

JSR PC , GVL 

J5R PC.MTW 

l? Stft 

500031: 

I SET UP POINTER AREA FOR LINE = ’OMwIN’ . 


500041: 

500021: 


PC, MTW 
PC. GNL 

500051 

PC.MTW 
•5El, DLFLAG 
500061 


CHECK TO SEE IF ALL DEVICES „ „ , 

HAVE BEEN TESTEO YET. SET LDONE FLAG. 


500061: 


•LDONE , PCFLAG 
500071 


MAKE SHURE THAT WHEN TESTING A SINGLE 
DEVICE , IT DOESN’T GET DROPPED 
BECAUSE OF EXCESSIVE ERRORS. 


•SEL, DLFLAG 
•E2C.R0 


500071 

500051 

SOOODf 

500011 


. ***#*••••••• 

| GVL THIS ROUTINE FINOS A VALIO LINE FOR TESTING 


R3.-(SP) 

•LIN00.R3 

G1D 
•10. R3 


{GET AOOR OF LINE TABlE 
LIN PRESENT’ 

; YES BRANCH 

; POINT TO OTHER WORD 


F03 


ILAFAO LA36 "'ERM TST 
:LAFA.Pii 03- JAN-78 


008350 

002354 

002358 

002382 

002364 

002370 

002372 

002374 

002400 

002404 

002410 

002414 

002420 

002426 

002430 


002432 

002432 

002434 

002440 

002442 

002444 

002446 

002452 

002456 

002462 

002466 

002472 

002500 

002506 

002514 

002522 

002530 

002536 

002544 

002552 

002554 


002556 
002556 
002560 
002564 
002566 
002570 
002572 
002574 
002600 
002602 
002604 
3026 1C 


02002 - 

001371 

012700 

104000 

000137 

105713 

100364 

062703 

011337 

000337 

105037 

005037 

113737 

012603 

000207 


010346 

013703 

006303 

006303 

006303 

062703 

012337 

012337 

012337 

011337 

013737 

062737 

0.3737 

062737 

013737 

013737 

062737 

062737 

012603 

000207 


010346 

013703 

005203 

006303 

006303 

006303 

062703 

005713 

100403 

062703 

300773 


MAC'. 11 
11:20 

0167-0 

020306 

0013-2 


000006 

016160 

016160 

016161 

000174 

016160 
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OlblbO 


016170 

016126 

016130 

016132 

016134 

016130 

000002 

016136 

000002 

016140 

016132 

000004 

000002 


000174 


016136 

016136 

016140 

016140 

016142 

016144 

016144 

016142 


OlblbO 


016170 


000010 


10460 

10480 

10500 

10520 

10540 

10560 

10580 

10600 

10620 

10640 

10660 

10680 

10700 

10740 

10760 

10780 

10800 

10820 

10840 

10860 

10880 

10800 

10820 

10840 

10860 

10880 

11000 

11020 

11040 

11060 

11080 

11100 

11120 

11140 

11160 

11180 

11220 

11240 

11260 

11280 

11300 

11320 

11340 

11360 

11380 

11400 

11420 

11440 

11460 

11480 

11500 

11520 


CMP RO.iT ABEND i END OF TABLE 7 

BNE Gift ;N0 BRANCH 

1C: MOV iJe18.R0 jNOMFY OPERATOR - 

TYPE 

ID- TSTB (r!T RT ;LINE SELECTED 7 

BPL GIB NO TRY ANOTHER ull 

ADD «6 R3 i POINT TO OTHER WOI 

MOV (RSl.ONLiN ; GET DATft FROM TABLE 

SWAB ONLIN ; 

CLRB 0NLIN*1 

CLR SWLINE 

MOVB ONLIN, SWLINE 

MOV <SP)*,R3 „ 

RTS PC ;EXIT 

*MTW***THIS*ROUTINE TRANSFERS TABLE DATA TO THE UORV AREA 


END OF TABLE 7 
NO BRANCH 

N0 T IF7 OPERA T OR - NO ^INE: 


;LINE SELECTED 7 
; NO TRY ANOTHER uINE 
iPOINT TO OTHER WORD 
; GET DATft FROM TABLE 


; EXIT 


XB FOR OFFSET 
ADO IN BASE ADOf 
GET FLAG WORD 

a? 

GET “OTHER WORD' 


MOV 0N£.IN?R3 ;GET LINE NO. 

ASL R3 

Sit R§ ;XB FOR OFFSET 

ADD «LIN00.R3 ;ADD IN BASE ADOP 

MTW1: MOV (R3)*,6lFLAG ;GET FLAG WORD 

mov KASE 

MOV CR3J.6L0TH ;GET “OTHER WORD" 

SHiS S^« Rxa 

MOV DvtRXB.DVCTXS 

aoo •a.Qvctxs 

MOV DvtTXS.OVCTXB 

MOV OLVEC.txVEC 

ADO *4, TXvEC 

ADD •2.0VCTXB 

MOV (SP)*,R3 

RTS PC 

i*GNL ## THIS ROUTINE FINOS THE NEXT .ALIO uINE TO 


R3.-(SP> 

On£.IN,R3 

R3 

R3 

R3 

R3 

•LIN00.R3 

<R3) 

GN3 
• 10.R3 
GN1 


;GET CURRENT lINE 
; CURRENT ♦ ! 

;X8 FOR OFFSET 
ADD IN BASE AOOR OF TABLE 
LINE PRESENT 7 
; YES - BRANCH 
; POINT TO NEXT LINE EN^Rn 
; CHECK NEXT 


\_AF AO 

.A36 T 

ERM TST 

MAC l 1 1 

30Av 1352 

LPFA. 

Pll 

03-JAN--8 

11:20 


658 

002612 

105713 



559 

002614 

100373 



bfaO 

□026 1 6 

021327 

A t * < 


661 

002622 

001412 



662 

002624 

062703 

000006 


663 

002630 

011337 

016162 


664 

88H33 

000337 

016162 


665 

105037 

016163 


666 

00264« 




i4) 

002644 

012603 



667 

002646 

000207 



668 

002650 

01273- 

1- 

316162 

669 

002656 

000—2 



670 





6"1 





672 





6-3 





674 





675 





b7b 

002660 




678 





679 





680 

C0266C 

006337 

004776 


i7) 

002664 

006337 

004776 


v7) 

002670 

006337 

004776 


681 





682 

002674 

062737 

016170 

004776 

683 





684 





685 





6B6 





687 

002702 

032777 

100000 

002066 

(9) 

002710 

001003 



688 

002712 

004737 

G0510C 


689 

002716 

000430 



(3) 

002720 




690 





691 





692 





693 





694 

002720 

032737 

000004 

005002 

'9 ) 

002726 

001415 



695 

002730 

OS 2777 

000200 

88183? 

696 

002736 

042777 

000037 

697 

002744 

062737 

000007 

004776 

698 

002752 

117737 

002020 

001370 

699 

3, 

88l?ll 

000407 



700 





701 





702 





703 

002762 

032737 

0000 ID 

005002 

' 9 , 

002770 

001403 



7 OH 

002772 

042777 

000200 

001776 


0C23CC 





G03 


03- 

INE 


jan--7 00:01 ppgc i -is 
CONTROL K INITIALIZATION 


11540 

1156)0 

11580 

11000 

116>20 

116>4Q 

1166)0 

11680 

11700 

11720 

11740 

11760 

11700 

11000 

11820 

11840 

11060 

11800 

11902 

11904 

11906 


11930 

11960 

11900 

12000 

12020 


12100 

12120 

12140 

12160 


12300 

12320 

12340 


GN3: 


GN4: 

GNS: 


TSTB 

0PL 

CMP 

BEQ 

ADD 

MOV 

8Sk 

MOV 

RTS 

MOV 

BR 


( P3 ) 

GN2 

(R3) , »-l 

GNS 

•6.R3 

( R3) .NXTUN 

NXTLIN 

NXTLlN*l 

(SPJ+.R3 

PC 

«-l. NXTLIN 
GN4 


;LIN£ SELEC T ED'> 

; HO TRY ANOTHER 
; END OF TABLE'' 

; YES - BRANCH 
; GET "OTHER WORD 

; * NEXT AVAILABLE .INE 


:EAI T 

; SET N/TLIN TO -1 - NO SELEC 


UPDATE ROUTINE TO UPDATE INTERFACE TABLE FROM COMMANDS 


UPDATE: 

SHIFT THE CONVERTED LINE NO. 
OFFSET TO THE LINE TABLE. 


FOP AN 


ASL DATA 

ASL DATA 

ASL DATA 

; ADO IN THE BASE ADORESS OF THE TA8..E. 
AOD SLINOO.DATA 

| IF THE LINE SELECTED DOESN* ” E<IST - 
| SENO AN ERROR MESSAGE . 

.P.30ATA 


S0002S : 


IT 

NE 

JSR 

BR 


II 

PC.SElERR 
5G003S 


ADDING A LINE SETS IT’S "SELECTED- FlAG 
AND CLEARS OUT THE ERROR COUNT FOR t HAT LINE 


BIT 

BEQ 

Si! 

ADO 

■r* 


•AOOC.TEMPF 
50004* 

•i ... 

•7. DATA 

,_.LINEN0 

300 


iWlsonm 


50004 S; 

DROPPING A LINE JUST RESETS IT'S "SELECTED- FLAG 

S IT lOROPC.TEMPF 

EQ 50006$ 

BIC aSEL.aOATA 


500061: 


t n 


H03 



AFAO ^A3b TERM IS' MA. ' 1 1 30A*1052! Q3-JAN-77 00:01 PAOE 1-lb 
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■'Ob 

003000 


50005S: 



'O' 

003000 


50003S: 



'08 

003000 

005037 0047'b 


CLR 

DATA 

'08 

003004 


50000S: 



3' 

003004 


50001S: 



<2 i 

003004 

000207 


RTS 

PC 

— > n 

A W 


12480 




"• 1 • 

A i 


12500 





5E0 0C33 


1 


103 


IZuAFAO i_A36 
:Zi-AFA.FU 


713 

714 
"15 
716 
"17 
"18 
"15 
"20 

721 

722 
■*23 
"24 
725 
"2b 

727 

728 
"28 
730 
"31 
"32 

733 

734 
"35 
73b 
"37 

738 

739 

740 

741 

742 

743 
3) 

(S' 

744 

745 
74b 
747 
7^6 

749 

750 

751 

752 

753 

754 

755 
75b 
757 
75e 
759 
7b0 
7b 1 
r 9) 

'hi 

r 9- 

' b i 

7b2 


TERM T5T 
03-JAM ; 


00300b 

003018 

003022 

003026 

003030 

0030% 

003040 

00304b 

003050 

00305b 

003062 


0030b4 

003Qb4 

003070 

003074 

003100 

003104 

003112 

00311b 

003120 

003124 

00312b 

00312b 

00312b 


012737 

012737 

005777 

000240 

012737 

000404 

012737 

02262b 

012737 

005037 

000207 


01374b 

01274b 

012746 

00473? 

142737 

012700 

104000 

012700 

104000 


000207 


002 13C 


002130 000000 

003132 017737 


003140 032737 
003146 001404 
003150 032737 
00315b 001016 
003160 

002160 000000 


MAC ill 30Ai 1052 1 03 JAN-"7 00:01 P AGE 1-T 
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003040 000004 

000340 000006 

01307b 

177570 016124 

000176 016124 

000006 000004 

000005 


001364 
000006 
020230 
007566 
000006 
0202 IS 

017730 


12540 

12560 

12580 

12600 

12620 

12640 

12660 

12680 

12700 

12720 

12740 

12760 

12780 

12800 

12820 

12840 

12860 

12880 

12900 

12920 


020226 


012766 016100 

000100 016100 
000040 016100 


13080 

13120 


13160 

13180 

13200 

13220 

13240 

13260 

13280 

13320 

13340 

13360 

13380 

13420 

13440 

13460 

13480 


13S2C 


SWITCH REGISTER ROUTINES 


. 5BTTL 

••**#*•***#• 

SWRT5T TESTS FCR HARDWARE SWITCH REGISTER 

•4J.MACHER 
•PRI" , MACHER+2 
3SWR 


$WRTST: MOV 
MOV 
TST 
NOP 
MOV 

4S: MOV 

ISP2 

65: MOV 

CLR 
RTS 


•177570.SWR 

bt 

•SSWR , SWR 

•b.MACHER 

MACHER+2 

PC 


;SU NXM TRAP TO 41 

; ACCESS SWITCH REG, 

j RETAIN HARDWARE POINTER 

|SU FOR SOFTWARE SWITCH D £C, 
; CLEAN THE STACK 
: RESET TRAP CATCHER 

; EXIT 


CTLGX THIS ROUTINE PRINTS THE PROGRAM CONTROL FLAGS ON Th£ CONSOLE. 


CTLGX: 


TYPE 

f 

TYPE 

50000S: 

500011: 


MOV 

MOV 

MOV 

JSR 

8108 

MOV 

'MOV 


RTS 


PCFLAG.-(SP) 
•6, - (Sr ) 

•SW+i 1. ,-<SP < 
PC,02A5t 
•6, SW* 1 1 
•SIJ.RO 

■Ll.RO 


PC 


GETSWS THIS ROUTINE READS THE SWITCH REGI3 T ER A'C 
CONVERTS THE DATA tq THE APPROPRIATE CGMTPCi 
FLAGS OR POINTERS. 


GETSWS: 

STOP HERE FOR OPERATOR TO £N r ER CONTROL SWITCHES 
HALT 


MOV 


3SWR,TEMP 


IF SWITCHES INDICATE A SINGLE LlfC OR A SINGLE TEST 
TO BE DONE STOP SO OPERATOR CAN ENTER LINE TEST DATA 


S0002S: 


SIT 

BEQ 

BIT 

0NE 

HALT 


»5‘"VTEHP 
souw.n 
•MULT I, TEMP 
500031 


J03 


CZLAFRO LR36 TERM TST MACY11 30Aa0S2> 
CZLAFA.P11 03- JAN-78 11:20 


'63 

003162 

017737 

012736 

016102 

'64 

003170 

005037 

001366 

001366 

7b5 

003174 

113737 

016102 

7feb 

003202 

005037 

001370 

0C1370 

'67 

003206 

113737 

016103 

768 

003214 



016100 

'69 

003214 

032737 

000100 

.9) 

003222 

001406 



770 

003224 

052737 

000100 

001364 

771 

003232 

005037 

001366 


'72 

003236 

000403 



1 3 i 

003240 




773 

003240 

042737 

000100 

001364 

774 

003246 




< t b 

77b 

003246 

032737 

000040 

016100 


003254 

001406 



777 

003256 

052737 

000040 

001364 

7'B 

003264 

005037 

001370 


"9 

003270 

000403 



i 3 ) 

003272 




790 

003272 

042737 

000040 

001364 

'81 

003300 




792 





783 

003300 

052737 

003200 

001364 

784 





785 

00330b 

042737 

174037 

001364 

78b 

003314 

042737 

003777 

016100 

787 

003322 

053737 

016100 

001364 

788 

003330 




'3 

00333C 




2 

-5a 

033330 

CC02C7 




03-JAN-77 00 

SWITCH REGISTER 


S0003S: 


50004*: 
50005* : 

13700 


5000b* : 
50007*: 

13940 

13900 

50000* : 
50001S: 

14100 


: 01 PAGE 1-18 
ROUTINES 


MOV 

CLR 

MOVB 

CLR 

MOVB 

3SWR. TEMP+2 
TEST&O 

TEMP+2, TESTNO 
LINENO 

TEmP*3, LINENO 

BIT 

BEQ 

BIS 

CLR 

BR 

m 

TEST&C 

50005! 

•EMP 

^CFLAG 

) 

5 

BIC 

•seq, pcflag 

BIT 

Iff 

CLR 

BR 

■MULT] 

50006! 

■MULT 

ti&i 

[ , TEMP 
f, PCFLAG 
i 


BIC ■MULTI , PCFLAG 


BIS 

BIC 

BIC 

BIS 


■ATTN! tNEUflODi «NEUTST. PCF..A& 

«1 74037. PCFLAG 

•3777.TfeMP 

T£MP>CFLAG 


RTS PC 


SEO 0035 


K03 


CZLAFAO LA36 TERM TST HflCUl 
CZLAFH.F11 03-JAN-78 11:20 
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SEC 0036 


003332 

003J40 

003346 


012737 

012737 

000207 


003466 

000101 


000060 

177560 


14040 

14860 

14890 

14900 

14920 

14940 

14960 

14980 

15000 

15020 

15040 

15060 

15080 

15100 

15120 


. S8TTL CONSOLE TERMINAL ROUTINES 


CONSGN-- ROUTIf E TO INITIALIZE CONSOLE v'£C T OR AREA 


CONSON: MOV 
MOV 
RTS 


GETSRC 


•REAPKB, 3«TKV 

•lOl.SaTKS 

PC 


j INTERRUPT TO "READKB'' 


807 

003350 





GETSRC: 


808 

003350 

005077 

012610 




CLR 

809 

003354 

012700 

020370 




MOV 

810 

003360 

104000 



15220 

TYPE 

81 1 

003362 

012737 

000001 

177560 



MOV 

812 

003370 





50002S: 


813 

003370 

032737 

000200 

177560 



BIT 

(9) 

003376 

001410 





BEQ 

814 

003400 

113777 

177562 

012556 



MOVB 

815 

003406 

004737 

005044 




J5R 

816 

003412 

012700 

017730 




MOV 

817 

003416 

104000 



15360 



818 

003420 





S0004S: 


819 

003420 

005777 

012540 




TST 

(5) 

003424 

001001 





BNE 

820 

003426 

000760 





BR 

'33 

003430 





50003S: 


821 

003430 

142777 

000200 

012526 



BICB 

822 

003436 

027727 

012522 

000116 



CMP 

(9) 

003444 

001007 





BNE 

( 6 ) 

003446 

023727 

016124 

000176 



CMP 

(9) 

003454 

001403 





BEG 

823 

003456 

052737 

000020 

001364 



SIS 

824 

003464 





500051: 


825 

003464 





500001: 


' “3 , 

003464 





500011: 


. 2 > 

003464 

000207 





RTS 


THIS ROUTINE ASKS THE OPERATOR IF HE /SHE 
WANTS TO USE CONSOLE CONTROL. THEN SETS 
A CONTROL FLAG ACCORDINGLY. 


3PTR 

•CTLM.RO 


«l,a«TKS 

•READV , SiTKS 
50004S 
3»TKB. 3PTR 

pc.ecAo 

•Ll.RO 


3PTR 

50003S 

S0002S 

•2Q0.3PTR 

SPTR.i’N 

5000$S 

5WR.«S5UR 

soo6si 

•suctl.pcflag 


oo 


ZLOFflO L»3fc TEm TST__ «»CVH 300. ‘0“’ C oSi5LE H ?EW1l“L°PO U flNls 1 


LQ3 

50 


ZLAFA.P11 03-JAN-~8 11:20 

02 7 
028 

829 

830 

831 

832 0Q34bb 

833 003488 010048 

834 

835 
03b 
837 


838 

003470 

013737 

177582 

839 

00347b 

142737 

000200 

840 




841 




84£ 




843 

003504 

032737 

100000 

(9) 

003512 

001405 


844 

003514 

004737 

005082 

845 

003520 

005037 

177580 

84b 

(3) 

847 

848 

849 

850 

851 

003524 

00352b 

00051b 


00352b 

123727 

00377b 

(9) 

C03534 

001008 


852 

00353b 

004737 

003084 

853 

003542 

012700 

017730 

854 

00354b 

10400D 


855 

003550 

000504 


< 3 ) 

003552 



85b 




857 




858 



000002 

859 

003552 

032737 

19) 

0035b0 

001410 


860 

0035b2 

113711 

00377b 

3b 1 

0035 bb 

052737 

004000 

8b2 

003574 

005037 

007584 

Sb3 

003S00 

000470 


(3) 

0Q3b02 



8b4 




8b5 




8bb 




8b7 




3b8 

003502 

032737 

000001 

C 9) 

003810 

001408 


8b9 

003812 

113777 

003778 

870 

003820 

004737 

004000 

871 

003824 

000458 


(3) 

00382b 




872 

873 

874 


00377b 

00377b 


00377b 


000007 


00 1 3b4 
0013b4 


15540 

155b0 

15580 

15b00 

15b20 


I5b50 

15b55 

lSbbO 

15bb5 


ISbBO 

15bB5 

15590 


15715 

15720 

15725 

15730 


15750 


1575b 

15757 

15758 


001354 

012344 


1577b 

15777 

15778 

15779 


1578b 

15797 

15798 


READKB THIS MODULE IS AN INTERRUPT HANDLER 
FOR '"HE CONSOLE TERMINAL. 

*»•#*#**#•*# 


READKB: 


MOV 

„4AR . 
CLEAR PARITY 


RO, -( 5P / 


GEI _CHAR_FROM^K^Y^AR^BUFFER REG . 


MOV 
31 C 




BlCB *200 
CHECK FOR DEVICE ERROR 


50002S: 


m 

JSR 


# SSo2t RDSAV 

pcTcmderr 

8*tKS 

500035 


IF CMD CHAR UPS R CTL-C DO THE CTLGX ROUTINE. 
PRINT OUT PCFLAGS ON CONSOLE. 


CMPB 
ONE 
JSR 
NOV 

TY K 

500045: 


W.tCTLG 
c __J4i 
^C.CTLGX 
•Li.RO 

500055 


IF IN I/O MOOE PUT ORTA IN I/O BUFFER 


T BFLACa.PCFLRG 
<3 SOOObS 

BT m t% 

BR 50007! 


®CFLAG 


500055: 

IF IN COMMAND MODE PUT DATA IN INBUF 
ANO CALL INTERPRITER 

gLA^.PCFLAG 

R0SAV.3PTR 
PC .05 I 
500115 

500105: 

CLEAR AND GO TO REAOY STATE. 



:r 


0037 


CZLAFAO LA36 TERM 1ST MACY11 
CStflFfi.Pll 03-JAN-78 11:20 


30A^ 1052 


'cONioL^TERMlNSll^OU^INii 


M03 


'‘20 0035 


00352b 

003534 

003535 

003542 

003544 


003544 

003552 

003554 

003552 

003554 


003554 

003572 

003574 

003702 

003704 


003704 

003712 

003714 

003722 

003724 


003724 

003732 

003734 

003742 

003744 


003744 

003752 

003754 

003752 

003752 

003752 

003752 

003752 

003752 

003752 

003752 

003752 

003782 


123727 

001003 

004737 

00044 7 


123727 

001004 

0 U 2737 

000437 


123727 

001004 

052737 

000427 


123727 

001004 

052737 

000417 


123727 

001004 

052737 

000407 


123727 

001003 

042737 


003776 C00003 

001372 


003776 000020 

020000 001364 


003776 000016 

020000 001364 


003776 000010 

100000 001364 


003776 000014 

040000 001364 


003776 000013 

140000 001364 


15811 

15812 
15013 


if IF 


15841 

15842 

15843 


15856 

15857 

15858 


15871 

15872 

15873 


15035 

15940 

15945 


500 12S: 


s8Sl2*“ CTLC 

PC.RESTRT 
500 13S 


CHECK FOR PRINT REPORTS COMMAND 


iAV.iCTLP 


500 14S: 


•INHRPT , PCFLAG 
50015* 


CHECK FOR NO REP0RT5 COMMAND 
CMPB RDSAV.iCTLN 


500161 

•INHRPT, PCFLAG 


500 16S: 


50017* 


J CHECK FOR HALT ON ERROR COMMAND 

; CMPB RDSAV. iCTLH 

BNE 50020* 

II s »»•*** 

50020* : 

! CHECK FOR LOOP ON ERROR COMMANO 


sr m. 


•CTLL 


50023* 


PCFLAG 


50022*: 

| CHECK FOR CLEAR COMMAND 
CHP8 RQSAV. »CTi 


50024 


5001 3* : 
5001 IS: 
50007*: 


IV. »CTLK 

!4i 

.TOE! tLOOPOE. PCFLAG 


TURN CONSOLE BACK ON & EXIT. 


N03 

CZLflFRO LA3b TERM TST MflCYll 30flil052> 03- JON-77 00:01 PROE 1-22 

CZLPFfl. Pi 1 03-J0N-78 11:20 CONSOLE T ERMINRL ROUTINES SEO 0038 


820 

00376,2 

012737 000101 

1775b0 


MOV 

»101 t 3»TKS 

821 

003770 

012b00 



MOV 

( SP ) ♦ , RO 

822 

003772 

000002 

158b0 


RTI 


823 

003774 



50000S : 



(3) 

003774 



50001S : 



(2) 

003774 

000207 



RTS 

PC 

824 



lb580 




825 

00377b 

000000 

lbbOO 

RDSRV: 

.WORD 

0 


:lafao 

l.A36 TERM 1ST 

MAC VI 1 

30Ai 1052 

> 03-JA' 

LAP A. 

Pll l 

03-JAN-78 

11:20 


CONSOLE 

827 





16690 

928 





16660 

928 





16680 

930 





16700 

931 

OOMOCu 





932 





16790 

933 





16760 

939 





16780 

935 





16800 

936 

009000 

123727 

003776 

000033 


18 ) 

009006 

001030 




937 

009010 

112777 

000099 

012196 


936 

009016 

009737 

005099 



939 

009022 

012700 

017051 



990 

009026 

109000 



16800 

991 

009030 

092737 

C 00001 

005002 


992 





17100 

993 





17120 

999 





17190 

995 





17160 

996 

009036 

013737 

005002 

001369 


997 

009099 

013737 

005009 

001366 


998 

009052 

012737 

016119 

016169 


999 





17235 

950 

009060 

092737 

017603 

005002 


951 





17260 

952 

009066 

000957 




C 3 ) 

009070 





953 





17300 

959 





17320 

955 





17390 

956 





17360 

957 

009070 

123737 

003776 

016166 


(9) 

009076 

001007 




958 

009100 

012737 

016119 

016169 


959 

009106 

012700 

017730 



960 

009112 

109000 



17990 

961 

009119 

000999 




3 > 

009116 





962 





17980 

963 





17500 

969 





17520 

965 





17590 

966 

009116 

123727 

003776 

000015 


(9) 

009129 

001021 




967 

009126 

012700 

017730 



968 

009132 

109000 



17600 

969 

009139 

00973 7 

009230 



970 

009190 

123727 

016119 

000121 


'9) 

009196 

001007 




971 

009150 

005037 

001366 



972 

009159 

005037 

005009 



973 

009160 

012737 

000001 

016152 


979 

009166 





975 

009166 

000917 




'3) 

009170 







M M 

<J ( > 


LAFAO LA36 TERM 'ST MACY11 
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C04 

30A i 1 052 ) 03- JAN-77 00:01 PAGE 1-24 

CONSOLE TERMINAL ROUTINES 


976 

r * 

978 

378 

980 
(9) 

981 
98c 

983 

984 

985 
(3) 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

' 3 ) 
(£i 

996 
99** 


004170 

004176 

004200 

004204 

004206 

004212 

004214 

004216 


004216 

004222 

004226 

004226 

004226 

004226 

004226 

004226 

004226 


123727 003776 

001007 

012700 017103 

104000 

012700 020123 

104000 

000404 


000077 


004737 

00523' 


0C02C 


005044 

016164 


17f 
17E__ 
17340 
17860 


17920 

17960 


18000 

18020 

18040 


18220 

18240 


IF CMO CHAR WAS A ’ 7 ' RETYPE THE COMMAND 
SUMMARY S GO T 0 READY CONDITION. 


CMP8 

BNE 

MOV 

TYPE 

MOV 

TYPE 

BR 


ROSAV ’ 
5001 li 
•COMSUM.RO 

•rdy.ro 

S0012S 


S0011S: 

ECHO THE INPUT CHARACTER. 


500 12S 
500 10S 

188811 
50000S 
5000 IS 


JSR 

INC 


RTS 


PC .ECHO 

ptA 


PC 


N r-j 


D04 

LAFAO c.A 36 TERM TST MAC ill 30A^iOS2i 03-JHN-77 00:01 PAGE 1-25 
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004230 

004230 

004232 

004234 


01004b 

01014b 

01024b 


16260 

18300 

16320 

18340 

183b0 

18400 


1008 

00423b 

012702 

001384 



1010 

1011 

004242 

012700 

00485b 

018114 



00424b 

012701 



1012 

1013 

004252 




18560 

1014 





18580 

1015 

101b 

004252 

121110 



18600 

,3) 

004254 

001145 




1017 





18840 

1018 





18660 

1018 

1020 

00425b 

118037 

000001 

004774 

18880 

1021 

004284 

058037 

000002 

005002 


1022 

004272 

048037 

0C0004 

005002 


1023 

00430C 

005037 

004778 



102-* 

1025 

004304 

005037 

005000 


18800 

102b 





18820 

1027 

1028 

004310 

032737 

000340 

004774 

18840 

(8) 

00 u 31b 

001520 




10|9 

004320 

00432b 

128127 

001008 

000001 

000015 


1030 





18800 

1031 

1032 

1033 

1034 

1035 
103b 

004330 

004737 

□05082 


11158 

18880 

19000 

19020 

103'’ 

004334 

012737 

018114 

018184 

1038 

004342 

000505 




f 3) 

004344 





1038 

1040 





13588 

1041 

1042 

004344 

012748 

004778 

000001 


19120 

1043 

004350 

118137 

004778 


1044 

00435b 

126127 

000002 

000015 


(8) 

004384 

001003 




1045 

004388 

012748 

000001 



104b 

004372 

000417 




< 3 , 

004374 





1047 

004374 

118137 

000002 

004777 


1048 

004402 

128127 

000003 

000015 



DECODE THIS SECTION DECODES THE COMMAND STRING FROM THE 
CONSOLE, AND SETS THE APPROPRIATE CONTROL FALGS. 


DECODE: 


500025: 


RO.-fSP) 
Rl.-(SP) 
R2.-(SP) 
•CTLBLK , R2 

■CE£tbl a ro 

•INBUr , R 1 


COMPARE CHAR IN TO FIRST BYTE OF TABLE 

CMPB (Rl).(RO) 

BNE 50004* 

IF SAME GET FLAGS FROM THE TABLE TO TEMPF 


MOVB l 

|iS 5 

clr data 

CLR 0ATA2 


l ( RO ) , DECSAV 
2 (RO), TEMPF 
4 (RO) TEMPF 


SEE IF THIS COMMAND REQUIRES ADDITIONAL DATA 
BIT •NREQ.DECSAV 


ui as?* 0 !' 

gp Mi* 0 " 


; DATA REQUIRED BUT NOT PRESENT. . .ERROR 

J JSR PC , CNOERR 

; IF A OR D COMMAND USE DATA FOR LINE NO. 

MOV •INBUF.PTR 

BR 500071 

500061: 

; CONVERT THE CHAR5 TO OCTAl DATA 


500101: 


m8vb 

*DATA,-(SP) 
1(R1) DATA 

CMPB 

BNE 

2(R1 ) , >CR 
5001 OS 

MOV 

BR 

lbtn\l P) 

MOVB 

2f R1 ) , DATA* 1 

CMPB 

3<R1 ) . «CR 



CZLA r AO ^.A3b TERM TST MACW1 
:Z<_AFA.P11 03-JAN- - '8 1 1 : 2G 
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i 9 ) 

004410 

001003 


1049 

004412 

01274b 

000002 

1050 

00441b 

00040S 


i3) 

004420 



1051 

004420 

1 lbl37 

000303 

1052 

00442b 

01274b 

000003 

1053 

004432 



1054 

004432 



1055 

004432 

01274b 

00477b 

105b 

1057 

00443b 

004737 

007b7b 

1058 

1059 
lObO 

004442 

121027 

000122 

(9) 

00444b 

001020 

lObl 

10b2 

10b3 

10b4 





10b5 

004450 

005737 

00477b 

iB) 

004454 

002404 

(b) 

00445b 

023727 

00477b 

(9) 

0044b4 

003403 

(b) 

0044bb 



lObb 

10b7 

0044bb 

004737 

005100 

lObB 

10b9 




1070 

004472 

000403 


(3) 

004474 



1071 

004474 

013737 

00477b 

1072 

004502 


1073 

1074 

004502 

004510 

052737 

100000 

1075 

107b 

1077 




1078 

004510 

121027 

000127 

C 9 ) 

00451 1 * 

001005 


00451b 

004522 

004530 


004530 

004534 

00453b 

004542 

004544 


004737 

052737 


121027 

001403 

121027 

001005 


00500b 

100000 


000101 

000104 


ocsooo 


000005 


005004 

005000 


0050C0 


19440 

194b0 

19480 


19520 

19540 

19SbO 

19SB0 


20080 

20100 

20120 


S0012S: 


500135: 

500115: 


8NE 500125 

MOV «2.-(SP) 

BR 50&13S 

M0V8 3' R1 ) , DATA2 

MOV «3,-tSP) 

MOV IDATA. - < SP ) 

JSR PC.A2&IN 


IF R COMMAND USE DATA AS A TEST NO. 

CMPB ( RO ) . • ’ R 

BNE 5001^5 

CHECK THE LIMITS FOR VALID TEST NC. 


50015S; 


►**# «5 BELOW IS HIGHEST TEST HO THIS DIAGNOSTIC ********** 
TST DATA 

BLT 5001 Sf 

CMP DATA. MS 

BLE 500 it* 



JSR 

PC , SELERR 

I9b40 

1 


l - ibO 
19b8r 

; OUT OF RANGE 

ERROR. 


: BR 

50017* 


500 lb*: 



MOV 

DATA, TEMPT 


50017*: 


BIS 

•MERR.0ATA2 


50014*. 


19B00 

« 


19B20 

19840 

• IF U COMMAND 

USE OATA AS 

CMPB 

BNE 

(ROJ.a’U 

5002ft* 

19880 

• 

• 

19900 

19920 

; GO CHECK FOR 

VALID LIMITS 


JSR PC.CHKW 

______ 8IS •M&W.0ATA2 

S0020S : 

20000 ; 

20020 ; IF AODING OR DROPING A LINE CALL UPDATE ROUTINE 

20040 

sgr v 

CMPB Vm.9'0 

BNE 5002&* 

50021 S: 


TAKE LINE NO. AND UPDATE INTERFACE TABLE 



F04 


'.-flFAO i_P3fe TERM TST MACtll 30Aa052' 03-JAN-T 00:01 PPCiE 1-27 
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SEO 0C44 


0045 44 

004737 

002660 

0045S0 

004S56 

004556 

052737 

100000 

004556 

004560 

000403 


004560 

004566 

052737 

10000C 

004566 

004570 

000415 


004570 

062700 

000006 

004574 

020027 

004774 

004600 

001010 


004602 

004737 

005062 

004606 

012737 

016114 

004614 

004622 

004622 

052737 

100000 


004622 

004630 

004632 

004634 

004634 


004640 

004646 

004650 

004652 

004654 

0)4654 

004654 


004656 

004660 

004664 

004666 

004672 

004674 

004700 

004702 

004706 

004710 

004714 

004716 

004722 


032737 

001001 

000607 


005037 00500C 


012737 
012602 
012601 
01 2600 


000207 


123 

001200 

115 

001240 

121 

000300 

122 

000200 

104 

002010 

101 

002004 

124 


20320 

20340 

20360 

20380 


7 100000 005000 


016114 016164 


20520 

20540 

20560 

20580 


20660 
206 BO 
20700 


50022%: 

50007%: 

50005%: 

50023%: 

50004%: 


PC.JPDATE 

«fl£RR,DATA2 


50023% 

•MERR , 0ATA2 
50024% 


•6,R0 


IP THE CHAR IN DOESN'T COMPARE TO AN i 

TABLE ENTRY THE COMMAND IS INVALID 

CMP RO.iOTEND 

BNE 50025% 

jsr pcTcmderr 


50025%: 

50024%: 


PC.CMDERR 

■iAbuf.ptr 

tMERR, C>ATA2 


KEEP LOOKING AT CHAR UNTIL IT'S 
DECOOED, OR ENO OP TABLE (ERROR 

BIT •MERR.DATA2 

8NE 50003% 

50002% 


50003% 


CLR DATA2 

; RESET THE INPUT BUFFER POINTER 

MOV •INBUF.PTR 

MOV ( SP ) ♦ . R2 

MOV (SPU.Rl 

MOV ( SP ! ♦ , RC 

50000%: 

50001%: 


000 

000040 

000 

000000 

000 

000000 

200 

000100 

100 

000004 

100 

000010 

000 


20820 

20840 


20890 

20900 

20920 

20940 


6ECTBL: 



INEWMOD.MULTI 

*M.O 

ATTN!MUL T I 5NEUM0D. 0 

’ 0.0 

ATtNJSEO.O 

'R.20Q 

ATtN.SEO 

• 0.100 

ORftPCINEWTST.ADDC 
'A. 100 

AD6C!NEWTST.DR0PC 

•T.C 


DECODE TABLE 

FIRST - CHAR TO BE CECCDE. 
SECOND - CONTROL BI T S 
THIRD - SET MASK 
FOURTH - CLEAR NAS* 


;wN t ROl. 31"' 5: 


G04 


: afa; 

Zl.hF A 

11*1 
1 1H2 
11 M3 

1144 

1145 
114b 

1147 

1148 
1148 

1150 

1151 

1152 

1153 

1154 

1155 
115b 

1157 

1158 
1158 
iibO 
llbl 
1 lb2 
ilb3 
llb4 
1165 

1156 

1167 

1168 
1168 

1170 
( 8 ) 
tb) 
( 8 ) 
Cb) 

1171 

1172 
c 31 

1173 

1174 

1175 
' 2 '. 

g ) 

1176 


: !_P3b TERM tst 
Oil 03-JAN--'8 


004724 

004730 

004732 

004736 

004740 

004744 

004746 

004752 

004754 

004760 

004762 

004766 

004771 

004774 

004774 

004776 

005000 

005002 

005004 


MAC i 1 1 
31:20 


30A.1052 03-JAN-T 00:01 PACE 1-28 
CONSOLE TERMINAL ROUTINES 


010000 

000000 


21120 


.WORD 

114 

OOD 


21140 


.BYTE 

040000 

000000 


21160 


.WORD 

no 

000 


21100 


. BYTE 

100000 

000000 


21200 


.WORD 

116 

000 


21220 


.BYTE 

020000 

000000 


21240 


. WORD 

120 

000 


21260 


.BYTE 

occooo 

020000 


21280 


.WORD 

103 

000 


21300 


.BYTE 

000000 

140000 


21320 


. WORD 

127 

040 

000 

21340 


.BYTE 

000 

000 

000 







21360 

DTEND: 


000000 



21380 

DECSAV: 

.WORD 

000000 



21400 

DATA: 

.WORD 

300000 



21420 

DATA2: 

.WORD 

oooooc 



21440 

TEMPF : 

.WORD 

000000 



21460 

TEMPT: 

.WORD 




21480 




PRINTT.O 
’ L.O 

i,.o6poe,o 

HAiLtOE.O 

iWSpt.d 

•p.q 

O.INHRPT 
• g 0 

0.&ALT0E!L00P0E 
'W, 40,0, 0.0,0 


0 

0 

0 

0 

0 


* GET 

* GET 
S GEN 


WIDTH 
LINE '< 
TEST NO. 


; TEMPORAL < 
; TEMPORARY 


PCPLA6 WORD 
TEST NO. 


21S20 

21540 

21560 

21580 

21600 


CHKW THIS ROUTINE VALIDATES A "U" COMMAND 


005006 





CHKW: 





21621 

21622 

21623 

j RANGE 

OF 

CMP 



005006 

023727 

004776 

000032 



005014 

002404 





8LT 

005016 

023727 

0C4776 

000204 



CMP 

005024 

005026 

003403 




S0002S: 

BLE 

JSR 

005026 

004737 

005100 




005032 

000403 




50003$: 

8R 

005034 

005034 

005042 

013737 

004776 

016146 


MOV 

50004$: 

005042 

005042 

005042 

000237 



21760 

50000$: 

50001$: 

ATS 



26 


THRU 132 CHARACTERS IS VALIO 
DATA, *32 

SSffi.il 38 . 


PC.SELERR 

S0604S 

DATA, WIDTH 


PC 


SEC, 0C45 


CZLAFAO i_A35 TERM T5T MflCUl 30Ai 1052 
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005099 

005050 

005052 

005050 


10573-’ 

100375 

117737 

00020 "* 


177559 

011105 


§1156 

21850 
21880 
21900 
21920 
’555 21990 

21950 
21980 


CONSOLE KEYBOARD ECHO ROJTJNE; PTP HAS ADOR OF C*AP 


3ITPS 

ECHO 

3PTR.3ITPB 

p: 


MU 


L.AFA2 .A3b T£Rh ’ST MA. 11 
LAFA.^i, C3-JAN ~3 11:20 


3QA i 1052 03- JAN-77 00:01 PA'iE 1-30 

ERROR REPORT ROUTINES 


= E0 CCR*’’ 


005062 

005052 

005065 

005070 

005074 

005076 

005076 

005076 


012700 02001- 

104000 

012700 020123 

104000 


00020 - 


22020 

22040 

22060 

22QB0 

22100 


22160 

22200 


. SBTTL ERROR & REPORT ROUTINES 
CMDLR- TlfE TO HANDLE INVALID CONNAND 


CMDERR: 


TYPE 
50000S: 
5000 IS: 


1ER1.R0 

■RDY.RO 


1204 

005100 



1205 

005100 

012700 

020032 

1206 

1207 

005104 

104000 


005106 

012700 

020123 

1208 

005112 

104000 


1205 

005114 

01273- 

016114 

1210 

005122 



(31 

005122 

005122 



v 2 ' 

03C2C- 



016164 


22240 

iSELERR ROUTINE 

TO HANDLE 

22260 

22280 



22300 

SELERR: 

nov 

■ER2.R0 

22360 

TYPE 

MOV 

■ROY.RO 

22400 

TYPE 

■INBUF.PTR 

MOV 


500 QOS: 

SOQOlS: 

RTS 

PC 


22460 



CZLflFflO 

W A36 TERM T5T 

CZLflFA. 

Fll 

03- JAN- ■ 

1213 



1214 



1215 



1216 



1217 



1218 

005124 


1215 

005124 

005037 

1220 

005130 

032737 

(9) 

00513b 

001044 

1221 



1222 



1223 



1224 

005140 

013746 

1225 

005144 

01274b 

122b 

005150 

012746 

1227 

005154 

0C4737 

1228 



1229 



1230 



1231 

005 lbO 

113737 

1232 

005 lbb 

013746 

1233 

005172 

012746 

1239 

00517b 

012746 

1235 

005202 

004737 

123b 



1237 



1238 



1239 

00520b 

013746 

1240 

005212 

012746 

1241 

00521b 

012746 

1242 

005222 

004737 

1243 

00522b 

012700 

1244 

C0S232 

10400C 

1245 



1246 



1247 



1248 

005234 

042737 

1249 



1250 



1251 



1252 



1253 

n 05242 

01 3700 

1254 

.'0524b 

104000 

1255 

005250 


125b 

005250 

005037 

1257 



1258 



1259 



12b0 

005254 

013737 

12bl 

005252 

006337 

17 ) 

005266 

006337 

' 7 ) 

005272 

006337 

1262 

005276 

062737 

1263 

005304 

005277 

1264 



1255 




MACW1 30A i. 1052 ) 03-Jf 


11:20 


ERROR 1 



22500 

22520 

22540 



22560 

22580 

005434 

020000 

001364 

rururu 

rururu 

(T£T(T 

XXX 

trxru 

016154 

000002 

020001 

007566 


22722 

22724 

22726 

002032 

005434 

000003 

017770 

007566 

005434 

rururu 

rururu 

CD 00 00 
rururu 
trxru 

016160 

000002 

020011 

007566 

017761 


22940 

22960 

22980 

23000 

100377 

002032 

23040 



23060 

23080 



23100 

002034 


23140 

005434 


23200 

23220 

23240 

OlblbO 

005434 

005434 

005434 

005434 


016170 

000124 

005434 

23340 

23360 



:lapao 

t-A36 T 

E AM TST 

MAC'r 11 

30Ai 1052 

:lafa. 

1266 

1267 

1268 
1264 
1270 

Pll 

C3-JAN-78 

11:20 


005310 

032737 

040000 

0C1364 

(4) 

0053 16 

001403 


000010 

1271 

005320 

052765 

000001 

1272 

1273 

□05326 




1274 





1275 

1276 

005326 

032777 

000020 

C30100 

(4) 

1277 

1278 
1274 
1280 
1281 

005334 

001431 



005336 

032737 

000040 

001364 

(4) 

00S344 

001417 



1282 

005346 

042777 

000377 

000060 

1283 

005354 

013746 

016160 


1284 

005360 

012746 

000002 


1285 

005364 

012746 

020270 


1286 

1287 

1288 

005370 

004737 

007566 


1284 

1240 

005374 

012700 

020242 


1241 

1242 

005400 

104000 



1243 

1244 

005402 

000406 



i31 

005404 




1245 

00S404 

052777 

000200 

000022 

1246 

005412 

042777 

000020 

000014 

1247 

005420 




1248 

1244 

1300 

1301 

005420 




1302 

005420 

032737 

100000 

001364 

(4) 

005426 

001401 



1303 

005430 

000000 



13C4 

005432 




1305 

005432 




f 3) 

005432 




(2i 

005432 

000207 



1306 

1307 

1308 

005434 

000000 



1304 

1210 

1311 





1312 

1313 





1314 

0054 36 





K04 
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ERROR & REPORT ROUTINES 


SEC. OCHS 


23380 

23H00 

23420 

23440 


23520 

23540 

23550 


23500 

23520 

23540 

23550 


23800 

23820 

23840 

23880 

23400 

23420 


24040 

24060 

24080 


24120 


24180 

24200 

24220 

24240 

24260 

24280 

24300 

24320 


RETURN ADDRESS OP THE TEST ODD. 

THE TEST CONTROLLER WILL USE THE OLD 
RPC TO RE-DO T HE SUBTEST. 

BIT iLOQPOE , PCPLAG 

8E0 50003* 

BIS «BIT0,RPC(R5) 

50003* : 

SEE IP LINE ABORT PLAG IS SET 

BIT »ABO . 3ERRSAV 

BEQ 500041 

IP ABORT IS SET OESELECT THE LINE 
UNLES5 IT'S THE ONLY ONE BEING TESTED 

BIT *MULT I , PCPLAG 

BEG 50005* 

BIC »SEL ! •177.3ERRSAV 

NOV ONLIN.-(SP) 

MOV «2.-(SP) 

MOV •OAl.-(SP) 

JSR PC , 02ASC 

NOT IP Y OPERATOR THAT LINE WAS DROPPED 


MOV 


TYPE 


•DRO.RO 


IP TESTING ONLY ONE LINE DONOT ALLOl! IT TO BE DESELECTED 


500051 : 


500061: 

500041: 


BR 

lii 


500061 


RRSAV 

RRSAV 


HALT HERE IF HALT ON ERROR IS SET 


500071 : 

50000 $: 

500011 : 


ERRSAVf 


Ul 

HALT 


RTS 

.WORD 


•haltoe.pcflag 

500071 


PC 

0 


REPORT 


THIS ROUTINE 
END OF PASS 


R£PO»S?i. 


END OF TEST AND 


REPORT. 


L04 


CZLAFAO *.H3b TERM TST MACY11 
CZLAFA.P11 03- JAN-78 11:20 


30Ai 1052' 03-JAN-77 00:01 PAGE 1-33 

ERROR S REPORT ROUTINES 


1315 

131b 

1317 
( 9 ) 

1318 

1319 

1320 

1321 

1322 

1323 
1329 
1325 
1 32b 

1327 

1328 

1329 

1330 

1331 

1332 

1333 
1339 
1335 
133b 

1337 
C 9 ) 

1338 

1339 

1390 

1391 

1392 

1393 
1399 
1395 
139b 

1397 

1398 

1399 

1350 

1351 

1352 

1353 
1359 
1355 
135b 

1357 

1358 
(3) 

< 2 ) 

1359 

1360 

1361 
1262 


00593b 

005999 


00599b 

005952 

00595b 

0059b2 


032737 

001923 


01379b 

01279b 

01279b 

009737 


090000 002032 


01blS9 

000002 

020210 

00756b 


0059bb 092737 090000 002032 


005979 

005500 

005509 

005510 

005519 


005519 

005522 

005529 


005530 

005539 

005590 


005599 

005550 

005559 


005560 

005569 

005570 

00557b 

00557b 

005576 

005576 


012700 

009737 

012700 

009737 


032737 

001925 

01379b 


01279b 

01279b 

009737 


01379b 

012796 

009737 


012700 

009737 

092737 


000207 


020166 

007010 

017051 

007010 


020000 

016159 


000002 

020161 

00756b 


00203b 

020195 

010006 


02013b 

007010 

020000 


002032 


29395 

29350 


29365 

29370 

29375 


29995 

29950 

29955 


29505 

29510 

29515 


29595 

29550 

29555 


K!S 

29615 


29665 

296% 

29695 


CHECK FOR END OF TEST CONDITION 


BIT 

BEQ 


■EOT CFLAG5 
SOOOM 


CONVERT TEST NO. TOR OUTPUT 

MOV INTEST .- i 5P ) 

MOV «2.-(SP) 

MOV «e6tm+18. ,-(SP> 

JSR PC.02ASC 

SEND END OF TEST MESSAGE 
BIC «EOT , CFLAGS 


MOV 

JSR 

MOV 

JSR 


■EOTM.RO 

PC.MT^PE 

■L3.R0 

PC.ftTYPE 


Ul 

MOV 



50002S: 

CHECK FOR END OF PASS CONDITION 

CFLAGS 
SP) 

CONVERT TEST NO. FOR OUTPUT 

MOV •2.-CSP) 

MOV •EW»H+19.,-<SP> 

JSR PC.02ASC 

CONVERT PASS NUMBER FOR OUTPUT 

MOV TSCCNT -(SP) 

3SS 8» 1SPI 

SEND END OF PASS MESSAGE. 


002032 


188831 

500011 


29800 

29620 

29890 


MOV 

JSR 

BIC 


RTS 


•EOPM.RO 

PC.MTYPE 

«e6p, cflags 


pc 



Oo 


MD4 

ZLRFAO LA35 TERM TST MOCVll 30AU052) 03-JPN-77 00:01 PPGE 2 

ZLRFA.P11 03-JAN-78 11:20 ERROR & REPORT ROUTINES SEG 0051 


m 





m 

• SETIO 

ROUTINE TO SET I/O MODE 

1355 





00090 




1355 





00110 




1357 





00130 

Ktfi. 



1» 

005500 

005500 







1370 

005500 

032737 

000001 

001354 



3 1 T 

•FLAG1 . PCFLAG 

(9) 

1371 

005505 

005510 

001003 

052737 

000003 

001354 



Ki 

! BFLRG2 , PCFuAG 

1372 

005515 




50003S: 


1373 

005515 

032737 

000001 

001354 



3IT 

•FLAG1 , PCFLAG 

iral.PCFLRG 

( 7) 
(4) 

005524 

005525 

001755 

032737 

000002 

001354 



IW 

(7) 

005534 

001751 




3EQ 

50002* 

1374 

005535 





50000*: 



L 3 

005535 





50001 S: 



(2) 

005535 

000207 




RTS 

PC 

13~5 





00320 




:3~fc 





00340 





N04 


CZLAFAO LA36 TERM TST MACY11 
CZLAFA.PU 03- JAN-78 11:20 

1378 

1378 

1380 

1381 

1382 

1383 005640 012737 000003 

1384 005646 012737 006120 

1385 005654 012701 016170 

1386 005660 012137 016126 

1387 005664 012137 016130 

1388 005670 012137 016132 

1388 005674 012137 016134 

1390 005700 013737 016130 

1391 005706 062737 000004 

1392 005714 013737 016140 

1393 005722 062737 000002 

1394 005730 113737 016135 

1395 005736 005777 010166 

1396 005742 052737 100000 

1397 005750 012737 000300 

1398 005756 112777 000076 

1399 005764 052777 000100 

1400 005772 104006 

1401 005774 005737 016132 

1402 006000 001433 

1403 

1404 

1405 006002 052737 000200 

1406 006010 013741 016134 

1407 006314 013741 016132 

1408 006020 013741 016130 

1409 006024 013741 016126 

1410 

1411 006030 062701 000010 

1412 006034 020127 016770 

1413 006040 001307 

1414 006042 162701 0000 10 

1415 006046 005711 

1416 006050 100403 

1417 006052 012711 177777 

1418 006056 000771 

1419 006060 012737 000006 

1420 006066 000207 

1421 006070 052737 000020 

1422 006076 042737 000200 

1423 006104 004737 005124 

1424 006110 012700 020055 

1425 006114 104000 

1426 006116 000734 

1427 

1428 006120 062706 000004 

1429 006124 000743 

1430 

1431 

1432 

1433 


30ft i 1052 > 03- JAN-77 00:01 PAGE 2-1 

INTERFACE SIZER ROUTINES 


LEG 0052 


00700 

00900 

00950 

010Q0 

01050 

01100 

01150 

01200 

01220 

01240 

01260 

01280 

01400 

01430 

01440 

01450 

01500 

01750 

01850 

01900 

0192S 

01950 

02050 

02100 

02125 

02150 

02200 

02300 


.SBTTL INTERFACE SIZER routines 


000066 

000004 


016140 

016140 

016142 

016142 

016160 

016126 

007564 

010156 

010146 


016126 


02600 
02650 
02700 
02750 
02800 
02850 
02900 
02950 
000004 03100 

03150 
016126 03200 

016126 03250 

03350 

03400 

03450 

03500 

03550 

03600 

03650 

03700 

03750 

03800 



BUILD SUBROUTINE TO BUILD THE DEVICE TABLE USED 
IN MULTI LINE MODE. 


&UILD: 


MOV 

M0V8 

BIS 

OELAYR 

TST 

BEO 


•BPT . 66 

•4j, A rcher 

•liAoo.ri 

(R1)+,6lflag 

(Rl>* DLADR 

(R1)+,DLVEC 

(Rm.DLOTH 

dlaorIdvctxs 

•h.dvCtxs 

OvtTXS.DVCTXB 

•2.DVCTX8 

dl6th+i,onlin 

9DLADR 

SfeAUf 

■' > ,i)DVCTX8 
•106,3DVCTXS 

DLVEC 

21 


■sel.dlflag 

DLOTH.-CRl ) 
DLVEC, -(Rl ) 
DLAOR.-(Rl) 
dlfla6,-(Ri> 

•10, R1 

Rl,iTA9£ND 

IS 

•10, R1 

<R1 5 

71 

•-l.(Rl) 

61 

•6, MAC HER 

•ABO.OLFLAG 

•SEL.DLFLAG 

pc.eAror 

•Eft7.R0 


•4,SP 

51 


; SET UP CONSOLE TRAP 
• SET UP NXM TRAP 


TRY TO ACCESS OVC. 

SET OVC PRESENT FLAG 
SET UP FOR DELAY 
TXMIT A ">** CHARACTER 
SET DVC TX INTR ENABLE 
WAIT FOR INTERRUPT 
IF ZERO NO INTERRUPT OCCURED 
NO INTERRUPT - BRANCH 
OTHERWISE DLVECsAOOR THAT 
DVC INTERRUPTED TO VIA INTRAP * 
SET SELECTED FLAG 

PUT NEU INFORMATION 
INTO LINE TABLE 


JUMP POINTER TO NEXT lINE 
ALL DONE ’ 

NO - DO NEXT Llf« 

CKECH LAST ENTRY 
FOR LINE PRESENT 

IF NOT SET IT TO END 
OF TABLE 

RESET TRAP CATCHER 

CCT QRflBT FI QC 

MAKE SURE LINE IS DESELECTED 

SU ERROR NSG 
TYPE NSG ON CONSOLE 
FIX TRBLE ENTRIES 


; ERASE INTR FRON STACK 

;GET NEXT LINE ENTRY 


******•#•##• 

CATCH REPLACES TRAP CATCHER FROM 100 TO 1000 . 

«***••*•»•** 



MM 


lAFAO w A3b TERM TST MAC -> 1 1 
l hF A . P 1 1 O3-JAN-70 11:20 


1434 00b 12b 

1435 00b 135 

143b 00b 134 

1437 00b 140 

1438 00b 144 

1438 00b 150 

1440 00b 152 

1441 OOfclbO 

1442 
1 4-*b 


012700 001000 

005040 

010037 OlblOO 
013740 OlblOO 
020027 000100 

002370 

012737 0034bb 

00020 ' 


3GAi 1052 


OOOObO 


B05 


i 03- JAN-77 00:01 PACE 2-2 
INTERFACE SI2ER ROUTINES 


03850 

03900 

03950 

04000 

04050 

04100 

04200 

04250 

04300 

04500 


CATCH: MOV *1000, RO 

IS: CLR -(RO) 

MOV RO. TEMP 

MOV TEftP , - ( RO i 

CMP R0,»100 

BGE IS 

MOV •READKB, 3<TVV 

RTS PC 


SFC. 


CCS 3 



MM 


cos 

T o>jbn-'8 n)io' iz^SUSeI 3-3 


CEO 0054 


00felb2 
006162 
006166 
0061 .4 
006202 
006210 
006216 
006224 


006230 

006232 

006234 

0C6236 


011637 

162737 

017737 

042737 

062737 

017737 

000177 


006240 

007212 

007162 

OO^C 


016112 

000002 

007712 

104400 

006230 

007666 

007662 


05400 

0S450 

8IISS 

05600 

05650 

05700 

05750 

016112 05000 

016110 05850 

016110 05050 

016110 06000 
016112 06050 

06100 
06150 
06200 
06250 
06300 
06350 
06400 


. SBTTL EMT HANDLER 

#**#*#**###«*#*#***•*•*##***♦******♦* 

THIS SECTION CONTAINS THE HANDLER AND MOST ROUTINES ACCESSED 
BY TRAPS THROUGH LOCATION 30. 

##*#*#*####*#***♦*****♦**♦♦********* 


EMTBOS: 


.EVEN 

C ™ BL: SSffta 

INTRAP 

DELAYM 


(5P) . TEMP+12 

a^M^+T2!?EMPflO’ CET RE ^GE^ EMT INSTRUC T ION 
•104400, TEMP+ 10 ; MASK INSTR BITS 
•EMTABL. TEMP+10 ; ADD TABLE ADDR 
3TEMP+lCl, TEMP+12 
STEMP+12 


NSOLF. TYPE ROUTINE 
LINE TABLE PRINTER 
DL INTERRUPT CATCHER 
DELAY ROUTINE 


CZLAFAO -A36 TERM TS T MR 11 
CZLAFA.Pii D3-JAN-~8 11.20 


006270 

006274 

006276 

006302 

006306 

006312 

006316 

88812 

006340 


010237 

010446 

012702 


006374 

006410 

888312 

006424 
006430 
006432 
006432 
006434 
006440 
006442 
006446 
006452 
006456 
006460 
006462 
006466 
0064 7C 


012704 

013722 

013737 

MK 

012777 

ilF» 

86123^ 

004737 


001741 

042737 

ink 

005737 

001004 

012604 
013702 
0002 07 
010437 
012704 
012702 
021224 
001404 
020437 
001403 
000772 


304 , 1352 


006240 105710 

006242 001406 

006244 105737 177564 

88UIS 17-566 

006256 000770 

006260 105 7 37 1—564 

00&264 100375 

0G6266 000002 


006646 

0204 34 
020670 
020574 
016132 
016144 

8ffi§8 

000004 


006646 

8281P8 

002110 

000400 

000400 

006650 

020670 


006646 

006652 

020574 

020434 


006652 


03-JAM- — 
! 0 DRIVERS 


00:01 


D05 

PAGE 2- u 


CC55 


mi 

06750 

3l8i8 

06900 


07050 

&?iS8 

07200 

8 m 

07287 

07300 

07350 

07400 

07450 

07500 

07550 

07600 

076S0 

87858 


016150 07950 

848183 81888 

007602 08100 

887H0 am 

007550 QB2SQ 


001364 

001364 


8Ih§8 

08500 

81188 

08650 

08700 

08750 

08800 

08850 

08900 

08950 

09000 

09050 

09100 

09150 

09200 

09250 


SBTTl I'O DRIVERS 


ETVPE CONSOLE OUTPUT ROUTINE, ENT 

DATA In So. null TERMINATE 


NTER WITH ADDRESS OF 
TE5 OUTPUT. 


ETYPE: 


(‘lECHO: 


t RO / 

35 

3«tps 

(^0)4.a«TPB 

ETYFE 

S? TPS 


CHECK FOR NULL 

EXIT ROUTINE 

CHECK FOR TRANSMIT PEAL 

WAIT 

TRANSMIT CHARACTER 
SET NEXT CHAR 
WAIT TILL ALL DONE 

EXIT. . . 


MECHO TERMINAL OUTPUT ROUTINE - SINGLE CHAP 

ruQR T N R? 

INTERRUPT DRIVEN ALL LINES 


DELAYR 

TST 

B.NE 


R2.MSAVE 
R4,-(SP) 
•STACK2, R2 
ENOS 

jehem?. 

TXVEC, SAVE 

■IQT.aSAVE 

MlAvfe’^VCTXB 

gJ.gg.iDVCTXS 

PC.LIMMQN 

•J60NE.PCFLAG 

•LDONE.PCFLAG 

R2.M5A&E+2 


( 5P ) ♦ , R4 
MSAVE.R2 
PC 

R4.MSAVE+4 

•stacks, R4 
•STACKS, R2 
< R2 ) , ( R4 ) ♦ 

§4,MSAVE*4 

65 

45 


; INITIALIZE STACK2 
;2ER0 COUNT 

; GET THE AOD» 3 

;SAVE THE VECTOR 

■PUT AOOR*2 INTO AOOR 

;PUT tr ^!t T0 f 88 d ?S ms. 

I PUT CHAR IN BUF REG 
COUNT 

:END OF OVC UIST *» 

; NO 00 tAIS LINE 

;SAVE STACK2 POINTER 

; ALL PENDING INTERRUPTS SHCU-C 
;8E COUNTED DOWN 8Y TXTRAP. 


EXIT... 

SAVE STACK 3 LIMIT 
RESET STACK3 POINTER 
RESET STACK2 ROINTER 
VECTOR MATCH - 
YES - BRANCH 

: STACK END ' 
YES - BRANCH 
COMPARE NEXT VEC' . 


L 


MM 


lAFAO i_A3b TtRM T?' MACV11 
LAFA.Pil 03- JAN-78 11:20 


1527 

1528 
1528 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 
1538 
1540 
1581 

1542 

1543 

1544 

1545 

1546 

1547 

1548 
1548 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 
1558 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 


3CAilOS2i 03- JAN-"'7 00:01 

1 '0 DRIVERS 
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SEC 0056 


006472 

005012 



08300 

5S: 

CLR 

006474 

005044 



08350 


CLR 

006476 

062702 

000002 


08400 

bS : 

ADD 

006502 

020237 

006650 


08450 


CMP 

006506 

001403 



08500 


BEQ 

006510 

012704 

020574 


08550 


MOV 

006514 

000760 



08600 


BR 

006516 

012702 

020434 


08650 

7*: 

MOV 

006522 

00571? 



08700 

8*: 

TST 

006524 

001003 



08750 


8NE 

006526 

062702 

000002 


08800 


ADD 

006532 

000773 



08850 


BR 

006S34 

012737 

016174 

006652 

08800 

8*: 

MOV 

006542 

027712 

000104 


08850 

10*: 

CMP 

006S46 

001404 



10000 


BEG 

006550 

062737 

000010 

006652 

10050 


ADD 

006556 

000771 



10100 


BR 

006560 

062737 

000002 

006652 

10150 

11S: 

ADD 

006566 

017737 

000060 

016160 

10200 


MOV 

006574 

105037 

016160 


10250 


CLRB 

006600 

000337 

016160 


10300 


SWAB 

006604 

004737 

002432 


10350 


JSR 

006610 

012737 

020055 

002034 

10400 


MOV 

006616 

112737 

000377 

002032 

10450 


MOVB 

006624 

052737 

100000 

002032 

10S00 


BIS 





10551 

; lt»* 

«**«»*«*» 





10600 


ERROR 377 





10650 

; #**# 


006632 

004737 

005124 




JSR 

006636 

042737 

100377 

002032 

10750 


BIC 

006644 

000672 



10800 


BR 

0066 L *6 

OOOOOC 

000000 

000000 

10850 

MSAVE 

: . WORD 





10855 




(R2) 

- f R4 ) 

«2,R2 

R2.MSAVE+2 

7S 

■STACKS, R4 

4$ 

■STACK2.R2 
(R2'< 

8 * 

•2,R2 

8 * 

•L I NQO+4 , MSAVE ♦ 4 
3MSAVE+4, <R2) 

11 * 

■10,MSAV£*4 

10* 

•2 .MSAVE +4 
3M&AVE +4 , ONL I N 
ONLIN 
ONL IN 
PC .MTU 
8£ft7,TSCPTR 
•377.CFLAGS 
•MERR, CFLAGS 


ERASE VECT OUT 
ERASE VECT IN 
MOVE STACK POINTEP 
END OF OUT STACK ’ 

VES - CO GET ODD VECTOP 
; RESET STACK3 POINTEP 
; KEEP SORTING 
RESET STACK2 POINTER 
CHECK FOR NON ZERO 


; MAT 
; YES 


GET VECT FROM TABLE 

.NE IS N.G. 

JZ POL i T ER TO NE/ T 


; GET LINE NUMBER 

; ERASE JUNK BITS 

; MOVE TABLE TO WORK AREAS 
POINT TO ERROR MESSAGE 
; ERROR NO. 

SET ERROR FLAG 


PC. ERROR 
■HtRfiN, CFLAGS 
12* 

0.0.0 


; ERASE ERROR DATA 
; CLEAN HOUSE * E V IT 


10856 

10857 
10860 
10861 
10B62 

10863 

10864 

10865 

10866 


1568 

006654 




SECHO: 

1570 

006654 

013737 

016144 

016150 

MOV 

1571 

006662 

062737 

000002 

016150 

ADO 

1572 

□06670 

012777 

007510 

007246 

MOV 

1573 

006676 

012777 

000200 

007244 

MOV 

1574 

006704 

012737 

000144 

007564 

MOV 

157S 

006712 

110277 

007224 


MOVB 

1576 

006716 

012777 

000100 

007214 

MOV 

1577 

006724 

005237 

020670 


INC 

1578 

006730 

104006 


10877 

DELAVR 

1578 

006732 

005737 

020670 


TST 

(Hi 

006736 

001413 



BEO 

1580 

006740 

012737 

020055 

002034 

MOV 

1551 

006746 

052737 

100376 

002032 

BIS 


SECHO SINGLE LINE ECHO ROUTINE 

ENTER WITH CHAR IN R2 „ 

TRANSMITTS TO OVC VIA I-C DRIVER UOR* *REA 


TXVEC, SAVE 
•ItRApfgTXVEC 

mi-fish 

R2,36<'CTXB 

»i6Q,30VCTxS 

ENDS 


.._J2* 
•ER7.TSCPTR 
■37b! iMERR.CFLAG; 


FOB 

IZLAFAC LA3b TERM ' MAO 11 30AU052! 03-JAN- - '7 00:01 P POE 2-5 

IZLAFA.Pli 03-JAN-78 11:20 10 DRIVERS 


SEC. 0057 


0Q57S4 004737 005124 

005750 042737 100377 

D0b7bb 

00b7bb 013777 01b 150 

005774 005077 007150 

007000 013737 OlblbO 

00700b 
00700b 


7 002032 

0 007150 

0 

0 01bi5Q 


(2) 

007005 

000207 




1583 





10300 

1530 





10350 

1531 





11000 

1S32 





11050 

1533 





11100 

1534 





11150 

1535 





11200 

153b 

007010 

112002 



11250 

1537 

007012 

001403 



11300 

1538 

007014 

004737 

005270 



1533 

007020 

000773 



11400 

lbOO 

007022 

000207 



11450 

IbOl 





11450 

lb02 





11452 

1503 





11454 

1504 





1145b 

lbOS 





11458 

1505 





11470 

1507 





11472 

1508 





11474 

1503 

007024 





1510 

007024 

042737 

004000 

0013b4 


1511 

007032 

010237 

007554 



1512 

007035 

Cl 2777 

000101 

0070b4 


1513 

007044 

104005 



11480 

1514 





11481 

1515 

007045 

032737 

004000 

001354 


13) 

007054 

001003 




lblb 

00705b 

0S27bS 

100000 

000004 


1517 

007054 





IblB 





11407 

1513 

007054 

105737 

OlblbO 



(3! 

007070 

001004 




1520 

007072 

042737 

000003 

0013b4 


1521 

007100 

000402 




C3) 

007102 





1522 

007102 

005077 

007022 



1523 

007105 





1524 

00710b 





f 3) 

00710b 





2) 

0071 Ob 

000207 





11500 

11502 

1150H 

1150b 

11508 

1151C 


500025: 


500005: 
50001 5: 


PC .ERROR 
HMERRri, CFLAGS 

SAVE, 3TXVEC 
SSAVt 

ONLIN.SAYE 


tm« >*»«»•• 

MTYPE TERMINAL CUTPJT ROUTINE - LINE TABLE VEPSICN 
ENTER WITH ADDR OP MSG IN RO 


I'lTYPE: 


i RO ) ♦ . R2 

IS 

PC.MECHO 

MT^PE 

PC 


; GET CHAR TO PRINT 
;EXIT IP NULL CHAR 

; GET NEXT CHAR 
;EXIT. . . 


READ 10 


THIS ROUTINE M0NIT0R5 AN I/O READ OPERATION 


READIO: 

BIC iOATAlN, PCPLAG 

MOV R2.DELAYT 

MOV • 1 0 1 , SOL ADR 

DEL AYR 

; IP NO CHAR RECVO WITHIN (R2) MS SET ERROR F_AG 
BIT iOATAIN, PCFL AG 

SI 88K?MFLAGS{RS) 


LINE-0 CLEAR I/O MODE FLAGS 


500035: 


50004 



!»FLAG2,PCFLAG 


CLR SOL ADR 


RTS PC 


| TYPES TERMINAL OUTPUT ROUTINE SINGLE LINE 


ZLAFAO 

. P 1 i 


T Efif 1 T 5 T MAC'> 11 
03 -JAN -“8 11.20 


306 1052 


1531 

1532 


112002 


1533 

007110 


1534 

007112 

001403 

005554 

1535 

007114 

004 "O"’ 

1535 

007120 

000773 


1537 

1538 
1538 

1540 

1541 

1542 

1543 

1544 

1545 
1545 
1547 

007122 

007124 

000207 

015150 

007124 

105737 

, 8 ) 

007130 

001003 


1548 

007132 

004737 

005500 

1548 

(31 

007135 

007140 

000410 

005755 

1550 

007140 

010277 

1551 

007144 

C 13702 

015132 

1552 

007150 

052702 

000002 

1553 

1554 

1555 

3 ; 

007154 

007150 

0 C 715 C 

0 C 715 C 

012712 

300200 

„ cafe 

1 55 ~ 

007 15 C 

00020 "’ 



03 -JAN-*“' 00:01 

C DRIVERS 


11512 
1 1516 
11515 
11518 
11520 
11522 
11524 
1 152b 
11528 
11530 

11532 

11533 

11534 
1153 b 
11538 


11554 

1155 b 


T>PES : 

M 0 V 8 

BEQ 


JSR 


BR 

IS: 

RTS 


GQ5 

PAGE 2-7 


( RO ) + , R 2 
IS 

PC.SECHO 

TYf'ES 

PC 


READS 


READS: 


500 D 2 S: 


5000 

SOOr 

500 


RTS 


; GET CHAR TO PRIM T 
EX IT IF NULL 
; SEND the MESSAGE 

;EVI T 


THIS ROUTINE SETS JP DVC PEC XP VECTOR AREAS 
IF THE CURRENT LINE II NOT LINE-CC 


50^21 

IS&i 10 



PC 


H05 


AFAO t n3fc T ERf1 T 5 T MA.-ll 30AilDS2> 03-JAN-77 00:01 PAGE 2-8 

.AFA.FII C3-JAN-~8 11:20 t rap routines 


•EG 0059 


007182 

007186 

007172 

007178 

007204 

00'210 


005077 

012637 

062706 

162737 

005037 

000002 


006^52 

016132 

8888fg 

007564 


007212 

007212 

007216 

007222 

007226 

007232 

007234 

007236 

007240 

007244 

007250 

007252 

007254 

007260 

007262 

007266 

007272 

007276 

007300 

007304 

007310 

007314 

007320 

007324 

007330 

007334 

007340 

007344 

007350 

007352 

007356 

007360 

007364 

007366 

007372 

007374 

007376 


013746 

013746 

012702 

012700 

104000 

005712 

100406 

062702 

021227 

001452 

000770 

012237 

012246 

012746 

012746 

004737 

012246 

012746 

012746 

004737 

012237 

000337 

013746 

012746 

012746 

004737 

012700 

10400C 

105737 

001403 

012700 

000402 

012700 

104000 

000723 


;i613c 


016100 

016102 

016170 

017676 


000010 

177777 


016100 

000004 

017743 

007566 

000003 

017752 

007566 

016102 

016102 

016102 

000002 

017733 

007566 

017733 

016100 

020117 

020105 


HIS 

11650 

117§8 

11800 

11875 


lt« 

12000 

ii°S8 

12150 

12200 

1I1B8 

12350 

1S8 


12650 

12700 

12750 

12800 

12650 

12900 

12950 

13000 

13050 

13100 


13300 

13400 

13500 

13550 

13600 


13800 

13850 

13900 

13950 

14000 

14050 

14100 

14150 

14200 

14250 

14300 


. SBTTL TRAP ROUTINES 

INTRAP: USED 8'” TABLE 8UILD TO GET ADDRESS THAT A l.INE 
^5^V P T T ?N^r8M T 8^d! T 0« ^S^MAINT NODE. 


iNTRAP: CLR 
MOV 


30VCTXS 

(SP>*,DLVEC 

•ffl^ElVEC 

delAyt 


IpRTLTB this ROUTINE TYPES THE LINE TABLE 


; DISABLE THE INTERRUPTS. 

:SP*2 ADJUST STACK POIN r EP 
; ADJUST tO RCVR INTR JSODft 

iSPIWW BUILD ROUTINE 


ON THE CONSOLE 
AND THL 

' FOR EACH uINE. 


PRTLTB: 


TEMP.-(SP) 
TEMP+2, -(SP > 

(R2) 

•10, R2 

( R 2 J , •- 1 


(R2)*.TEHP 
(R2)+.-(SP) 
•4 , - ( I 

p£o&ic SP) 


; POINTER TO ; START OF TABlE 

; PRINT HERQER 
;LINE PlttSENT’ 

InSvE’pSSriR TO NEXT ENTR. 
;ENO OF TABLE 7 

; YES - BRANCH 
;SAVE FLAG WORD 


; CONVERT AOORESS YC ASCII 


J?R ; CONVERT LINE NC. 

MOV (Re)*.TEf1P*2 


TEHPti 


.-(SP) 

(SPJ 



JSR 

NOV 

TVPg 

PC.02ASC 

•l1n.ro 

; TYPE FORMATTED LINE 

35: 

tstI 

TEMP 

; SELECTEO’ 

BEG 

45 

; NO - BRANCH 


NOV 

TYPE 

8F 

?|i,PO 

; SEND STAR 

41; 

55; 

105: 

•DR.RO 

65 

; SEND DROPPED M 53 


=E0 CObO 


.AFAC 

L_A3b TERM TST 

MA^ ill 304, 

1 052 03-JAN-'7 

’RAP ROUTINES 

00:01 

AFA. 

P 1 1 

03-JflN-'e 

11:20 


,2' 

00737b 

012b37 

01bl02 


MOV 

714 

007402 

012b37 

OlblOO 

1 4400 

MOV 

'15 

00740b 

012700 

017051 

MOV 

'lb 

007412 

104000 


14450 

TYPE 

'1' 

~:s 

007414 

000002 


14500 

14550 

RTI 


105 

PAOE 2-' <3 


(SPJ ♦.TEMP+E 
5 p ♦.TEMP 
■l3.r6 


AFA3 ^A36 T ERM TST (IflCUl 30Ail052) 03-JAN-77 00:01 

lAFA.»ll 03-JAN-"8 11:20 T RAP ROUTINES 


JOB 
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i. ~2C 
1^21 
1 "22 
1723 
1 “27 
1 '28 
1729 
1 "30 

1731 

1732 

1733 

1734 

1735 
173b 

1737 

1738 

1739 

1740 

1741 
1792 
1743 

1~L44 

1 '45 
174b 
1747 
1740 

1749 

1750 

1751 

1752 

1753 

1754 


00741b 

007422 

007424 

007430 

007434 

00743b 

007442 

00744“ 

007450 

00745b 

0074b4 

007470 

007474 

007500 

007502 

00750b 


lb271b 
01 ibl4 
01274b 
027bl4 
001403 
05271b 
000772 
15271b 
017537 
062737 
005077 
052705 
005337 
003002 
005037 
000002 


000010 

015174 

000000 

000010 

000002 

000000 01b 100 

000004 01b 100 

005410 
000005 
020570 

00755“ 


14600 

14550 

14700 

14750 

14950 

15000 

15020 

15040 

15050 

15080 

15100 

15120 

15130 

15140 

15150 

15180 

15200 

15220 

15240 

15260 

15280 

15300 

15500 

15501 

15502 

15503 

15504 

15505 

15506 

15507 

15508 

15509 


••«••*«****• 

TXTRAP THIS ROUTINE CATCHES THE INTERRUPTS FROM 
DLll’S IN USE BT THE MECHO ROUTINE 


TXTRAP: SUB 
MOV 
MOV 

IS: CMP 

8EQ 
ADD 
BR 
SUB 
MOV 
ADD 
CLR 
ADD 
DEC 
8CT 
CLR 

3S: RTI 


2S: 


STRAP 


»10, (SP) 

(SP) . (R4) 

»L INOO+4 - i SP ) 
30CSP) , (R4) 

2$ 

•10, (SP) 

IS 

•2, (SP) 
30(SP).TEMP 
■4 TEM^ 

JT^MP 

ib.SP 

EN&S 

3S 

DELAYT 


SUB 10 FROM UPDATED PC ON S T ACK 

PUT BASE VECTOR INTO STACKS 

GET POINTER TO LINE TABLE VECTORS 

COMPARE TABLE TO STACK3 

SAME - BRANCH 

POINT TO NEXT TABLE ENTR < 

KEEP LOOKING FOR A MATCH 

ADDR OF DLAOR NOW ON STACK 

GET DLADR FROM TABLE 

POINT TO OVCTXS REGISTER 

DISA8LE INTERRUf S 

SET STACK POINTER TO DRIVER PC 

DECRIMENT INTERRUPT PENDING COUNT 

; ABORT TIMEOUT IF ALL ACCOUNTED FOG 
; RETURN TO I/O DRIVER 


SINGLE LINE TRANSMIT INTERRUPT CATCHER 
USED IN CONJUNCTION WITH SECHO ROUTINE. 


1755 

007510 




STRAP: 



1756 

007510 

005077 

006424 



CLR 

30VCTXS 

1757 

007514 

005337 

020670 



DEC 

ENDS 

1758 

007S20 

005037 

007564 



clr 

OELAyT 

1759 

007524 

000002 


15515 


RTI 


1760 

007526 




5000QS : 



C 3 ) 

007526 




500011: 



(2) 

007526 

000207 




RTS 

PC 

1761 




15517 




1762 




15518 




1763 




15519 




1764 




1S5SQ 




1768 




15750 

:••••»******» 


1769 




158Q0 

;DELAYM 

DELAYS 

FOP X MIL 

1770 




15850 

• 



1771 




15900 


»»«*#• 


1772 




15950 




1773 

0C7530 

005737 

007564 

15955 

DELAYM : 

TST 

OELAYT 

1774 

007534 

001411 


15960 


BEQ 

31 

1775 

007536 

010346 




MOV 

R3.-(5P) 

' 2 ) 







.mSxit 

a 776 

007540 

013703 

007562 

16050 

IS: 

MCV 

TIMER. R3 

1777 

007544 

005303 


16100 

2$: 

DEC 

R3 

1778 

007546 

001376 


16150 


BME 

2* 


; IMS LOOP TIME 


no 


K05 


ZLAFAO 

i_A3b TERM TST 

MACYll 

30A t. 1052 ) 03- JAM-77 00: 

: 01 PA IE 

: 2-n 

ZLAFA. 

Pll 1 

33-JAN-78 

11:20 

TRAP ROUTINES 



1775 

007550 

005337 

00"'5&H 

18200 


DEC 

DELATT 

1780 

007554 

003371 


18250 


BOT 

15 

1^81 

2) 

007558 

012803 




MOV 

(5P)4,R3 
. MEXIT 

1782 

007580 

000002 


18350 

35: 

RTI 


1783 




18400 




1784 

007582 

000554 


18450 

TIMER: 

.WORD 

554 

1785 




18500 




1786 




18550 




1787 




18800 




1788 




18850 




1785 




18700 




1750 




16750 




1751 

007584 

000000 


16800 

DELAYT : 

.WORD 

0 


~ r , 0062 


SET 

SE T 


FOR 11/35 
TO 202 IF 
251 
314 
2127 
1237 
755 


DELAY TIME 8UFFFR 


- 11 '40 
11/03 
11/05 
11/15 
11 /MS 
11/45 
11/45 


- 11/10 
- 11/20 
BIPOLAR 
- 11/70 
MQS 


ZLAFAO LA36 TERM 1ST MAC > 1 1 3QA»IQ52) 03-JAN-77 00:01 PAGE 2-12 

ZLAFA.P1 1 03-JAN-78 11:20 CONVERSION ROJTINES 


. SBTTL CONVERSION ROUTINES 


007566 


007606 

007612 

007616 

007622 

007626 

007632 

007636 

007640 

007644 

007650 

007654 

007660 

007662 

007670 

007674 


007676 

007676 

007700 

007704 

007710 

007710 

007714 

007720 

007724 

007730 

007732 

007736 

007742 

007746 

007750 

007750 

007754 

007760 

007764 

007770 

007774 

007776 


016637 

812SI 

005366 

042716 

052716 

111676 

005366 

005366 

001411 

006266 

006266 

006266 

016616 

000754 

016666 

062706 

000207 


010046 

005037 

016600 

142710 

005366 

152037 

005766 

001407 

006337 

006337 

006337 

000760 

016600 

013710 

011637 

016600 

062706 

010016 

013700 


010004 

000010 

000370 

000006 

010004 

000006 

010004 

010004 

010004 


000004 

0I00C4 

010004 

000002 

000010 

010004 


02ASCI OCTAL 
NUMBE 


000006 016150 17300 &2ASC: 

86Bi§6 000004 174 

000004 1 

177770 1 

QQQ060 1 

000004 1 

000004 17650 

000006 17700 

17750 

000010 17000 

0000 ID 17850 

000010 17900 

000010 17950 

13000 

000002 000010 18050 1*: 

000010 1B100 


OCTAL TO ASCII CONVERSION ROUTINE - ENTER WITH 
NUMBER TO BE CONVERTED ON THE STACK, FOLLOWED 
BY THE NUMBER OF DIGITS TO CONVERT, FOLLOWED 
BY THE STORAGE ADDRESS FOR THE ASCU STRING. 


6 ( SP ) , SAVE 
4(SP) 

■177770, (SP) 

4CSP) 

6(SP) 

IS 

10(SP) 

10(SP) 

10(SP) 

10(SP),(SP> 

ifsp ). 10(SP) 


GET WORK COPY OF NUMBER 

ADD COUNT TO POINTER 
DEC FOR ENO ADOR 
MASK OUT ALL BUT 3 BITS 
MAKE CHAR ASCII 
PUT ASCII CHAR IN BUFFER 
INC POINTER 
DEC DIGIT COUNT 
BRANCH IF DONE 

GET NEXT DIGIT 


DO NEXT CHAR FOR CONVERSION 
PUT RETURN PC AT TOP OF JUNK 
POINT TO RETURN PC 
EXIT, . . 


A2BIN CONVERTS INPUT ASCII TO BINARY NUMBER 

ENTER WITH AOOR OF ASCII STRING ON STACK 
FOLLOWED BY • DIGITS TO CONVERT 
FOLLOWED BY AOOR OF WORD FOR ANSWER. 


A2BIN: 


50002S: 


R0,-(5PS 
AasAv 
IO(SP) ,RC 

•3gJj(R0) 

^^♦.A25AV 


50003S: 


4 ( SP ) , RO 
A2SAV. CRO) 

I?OT V 

■ io.sA 
ROjSP) 
A2SAV , RO 


CZLAFAO LA36 TERM T57 MAC YU 

C2LAFA . Pll 03-JAN-78 11:20 


M05 

30 A i 105S ) 03- JAN-77 00:01 PAGE 2-13 

CONVERSION ROUTINES 


CCfc-» 


1848 
(3) 
( 2 ) 

1849 
1650 

1851 

1852 

1853 

1854 

1855 
185b 

1857 

1858 

1859 

1850 

1851 

1852 

1853 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 
1381 
1882 

1883 

1884 

1885 
18% 
1887 
1868 


818881 

010002 


000207 


010004 000000 


010006 

010012 

010020 

010024 

010030 

010032 

010036 

010042 

010044 

010052 

010056 

010060 

010066 

010070 

010076 

010100 

010104 

010112 

010116 

010122 

010126 

010132 

010134 

010140 

010144 

010146 

010154 

010160 

010161 

010162 


012700 

112737 

005037 

021066 

003005 

161066 

105237 

000770 

152737 

105737 

001012 

123727 

001004 

112737 

000402 

105137 

113776 

00S266 

062700 

105037 

105337 

001334 

011666 

062706 

000207 

023420 

000012 

000 

000 

000 


188811: 



A2SAV : .WORD 0 


: STORAGE AREA 


010146 



BIN2DA BINARY TO DECIMAL ASCII CONVERSION ROUTINE 
ENTER WITH NUMBER TO CONVERT ON THE STACK, 
FOLLOWED BY THE ADDRESS OF THE ASCII BUFFER. 

5 DIGITS WILL BE CONVERTED 


000005 

010162 

20900 


MOVB 

010160 


20950 


CLR 

000004 


FM1 

15: 

CMP 

BGT 

000004 


21250 


SUB 

010160 


21350 


INCB 


21450 


BR 

000060 

010160 

21550 

25: 

sisb 

OlOlbl 


21650 


TSTB 



21750 


BNE 

010160 

000060 

21850 


CMPB 



21950 


BNE 

000177 

010160 

22050 


MOVB 



22150 


BR 

□10161 


22250 

31: 

core 

MOVB 

010160 

000002 

22350 

41: 


000002 

000002 

010160 

010162 

000004 

000004 


001750 

000C01 


22400 
22450 
22550 
22650 
22750 
22800 
22825 
22850 
22950 
000144 23050 

23150 

23250 

23300 

23350 


BIN2DA: MOV iTA80A.R0 ; INITIAL 

MOVB i5, DIGITS 

CLR CNTDA 

15: CMP (R0).4(SP> 

BGT 25 

SUB (R0).4(SP) 

INCB CNTDA 

SR IS 

25: B1SB *60. CNTDA 

TSTB FLAftOA 

BNE 45 

CMPB CNTDA, i'O 

BNE 31 

MOVB • 177, CNTDA 

BR 45 

41 ! MO\S CNT($A?a2<SP) 

i NC 2(SP) 

DO i2.R0 

CURB CNTDA 

DECS 01 GITS 

MOV (5P).4(SP) 

ADO 14, Sr 

RTS PC 

TABDA: .WORD 10000. , 1000. , 100. , 10. . 1 


initialize table pointer 


CNTDA: 

FLAGDA: 

DIGITS: 


.BYTE 

.BYTE 

.BYTE 


AOS 
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CZLAFA.P11 03- JAN-78 11:20 


1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 010164 012705 

1906 010170 012700 

1907 010174 004737 

1908 010200 012700 

1909 010204 004737 

1910 010210 004737 

1911 010214 012700 

1912 010220 004737 

1913 010224 012700 

1914 010230 004737 

1915 010234 012702 

1916 010240 004737 

1917 010244 004737 

1918 01D2S0 012700 

1919 010254 004737 

1920 010260 012702 

1921 010264 004737 

1922 

1923 010270 052765 

1924 010276 012702 

1925 010302 004737 

1926 010306 000207 

1927 

1928 

1929 

1930 010310 013701 

1931 010314 012702 

1932 010320 162701 

1933 010324 

(31 010324 004737 

1934 010330 005202 

1935 010332 020237 

1936 010336 001403 

1937 010340 005301 

1938 010342 001401 

1939 
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SEQ 0065 



00250 


.SB 


00300 

; • • * 

• • 


00350 




00400 

jTESTO 

SEC 


00450 

• 

NO 


SSIS8 

• * * * 

* • 

010352 

00600 

TESTO: 

MOV 

010366 

00650 


MOV 

007010 



JSR 

010424 

00750 

TOl : 

MOV 

007010 



JSR 

010310 

00850 


JSR 

017730 

00900 


MOV 

007010 



JSR 

010434 

01000 


MOV 

007010 



JSR 

000016 

01100 


MOV 

006270 



J5R 

010310 

01200 


JSR 

017730 

01250 


MOV 

007010 



JSR 

000017 

01350 


MOV 

006270 

01450 

01500 


JSR 

020000 000004 


BIS 

000012 

01550 


MOV 

006270 



JSR 


01650 


RTS 


LA36 OPTION TESTS 


****************** 


******************************* 


• SET UP POINTER TO MODULE SLOCK 
SU TEST ID 

SU PRIMARY MSG 

SEND ALL CHARACTERS 

SU SECONDARY MSC. 

SEND SO - SELECT APL SET 
SENO ALL CHARS AGAIN 

{SEND SI -SELECT ASCII 


•T008LK.R5 
•TO. RO 
PC^MTYPE 

•pAi.ro 

PC.MTYPE 
PC CHARS 
•Ll.RO 

pc a Atype 
•s6c.ro 

PC.MTYPE 

«s6. R 2 

pc.Aecho 

PC .CHARS 

•l1.ro 
pc.Atype 
•S1.R2 
PC.MECHO 

•TDOfC , MFLAGS ( R5 ) ;S£T DONE AND ATTENTION FLAGS 

•12. R2 ;SU FOR LF 

pc.tecHO 
PC 


016146 

000040 

000007 

006270 

010364 


01700 

01750 

01800 

01050 

01900 

01950 

02000 

02050 

02100 

02150 

02200 

02250 

02300 


• SUBROUTINE TO FILL OUTPUT LINE WITH ALL CHARACTERS 
tHARS: 


2S: 


MOV 

NOV 

SUB 

JSR 

INC 

CMP 

BEG 

DEC 

BEQ 


WIDTH. R1 
•40.Rc 
•7, Al 

PC.MECHO 

rI.rub 

35 

R1 

35 


;SAVE WIDTH 
{SAVE :START CHAR 
ADJUSt WIDTH FOR PRI^SEC MSG 


NEXT CHAR 
LAST CHAR’ 

YES - EXIT 
FNO OF PAPER’ 
YES - EXIT 
SEND NEXT 


1940 

010346 

000307 




3S: 

RTS 

PC 


1941 

010350 

000006 



lihrViB 


.WORD 

6 {ITERATION COUNT 

1943 

010352 

000000 



02450 

TOOBLX: 

.WORD 

0 {CTLCNT 


1943 

010354 

000000 



02500 


.WORO 

0 

{PASS COUNT 

1944 

010356 

oooooo 



02550 


.WORD 

0 

: STATUS FLAGS 

1945 

010360 

000000 



02600 


.WORD 

0 

{POINTER 

1946 

010362 

010300 



02650 


.WORD 

TOl 

{RETURN PC 

1947 

010364 

000177 



02700 

RU8: 

.WORO 

177 


1948 





02750 

. NLIST 

BEX 



1949 

010366 

043524 

053123 

030040 

02800 

TO: 

ASCIZ 

•TEST 0 APL/ASCII CHAR 

SET#< 1S> < 12' < 

1950 

010434 

051501 

044503 

026511 

02850 

PRI: 

.ASCI 2 

/ASCII--/ 


1951 

010434 

050101 

026514 

026455 

02900 

SEC: 

. ASCIZ 

/APL / 


1952 





02950 


.EVEN 




BOfe 
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1954 

1955 
195b 

1957 

1958 

1959 
19b0 
19bl 
I9b£ 
19b3 
1964 
19b5 
19bb 
19b7 
19b8 
I9b9 

1970 

1971 

1972 

1973 

1974 

1975 
197b 

1977 

1978 

1979 
(5’ 

(4) 
(7) 

(5) 
(5) 
(7) 

1980 

1981 

1982 

1983 

1984 

1985 

(3) 
198b 

1987 

1988 

(4) 

1989 

1990 

1991 

1992 
<51 

1993 

1994 

1995 
199b 

1997 

1998 

1999 
2090 


010444 

010444 

010450 

010454 

0104b0 


0104BC 

Q104bb 

010472 

010500 

OlOSOb 

010510 

010510 

010514 

010514 

010522 

010524 

010530 

010534 

010540 

010544 

010552 

010554 


010554 

010554 

010582 

01058b 

010588 

010588 

010572 

010574 

010800 

010804 

010810 

010814 

010820 

010824 


012705 

012700 

004737 


012785 

013701 

012737 

012737 

000402 

005237 

023727 

003014 

012700 

004737 

017700 

004737 

062737 

000756 


012785 

013701 


020127 

001420 

012700 

110180 

004737 

112702 

004737 

004737 

004737 



.LIST BEX 

»**»*#*»###*»#*****»**»********* #4 ** 


010722 

010742 

007010 


03700 

03750 

03850 

03900 

03950 

040C0 

04050 

04100 


TE5T1 


;* * * 

TEST 1 : 


SELECTIVE ADORESSINC OPTION _ „ „ 

OPERATOR MUST COMPARE TYPEOUT AND SWITCHES ON THt M7737 
TO VERIFY CORRECT OPERATION. „ _ „„ „ 

IF A GROUP OR UNIT SELECT CODE OF LESS THAN 20' 8 \ 

IS USED MODIFY LOCATION GSEL ACCORDINGLY. 

»#»i«i*»#»*»******** 4 *** 4444 * 444 * 

MOV iTOlBLK , R5 ;SET UP POINTER TO MODULE 3 l.CC/ 

MOV »T1.R0 

JSR PC.ftTYPE 

; DESELECT Ai_L TERMINALS, THEN TRY TO 

; PRINT ERROR MESSAGES SHOULD NOT PRINT 

TRANSMIT A BAD SELECT SEQUENCE. THEN TR / TO 
PRINT ERROR MESSAGES. .. SHOULOAOT PRINT 
SELECT ALL TERMINALS, PRINT GP MES5AGE . 


010480 

010734 


000200 

020421 

000003 

007010 

000002 

008270 

010682 

00701C 


000010 


04850 

04700 

04750 


04850 


50004*: 


T ’ 3 * 

50005*: 


PRINT GP MESSAGE. 


01 0586 

000010 


MOV 

Cl 0734 



MOV 

011176 

010740 


MOV 

000001 

010738 

50003*: 

MOV 

BR 

010736 



INC 


S0002S : 

CMP 

BGT 

MOV 

010738 

000010 


017730 



007010 



JSR 

000200 



MOV 

007010 



JSR 

000002 

010740 


AOD 



BR 


MOV «T13, RPC ( R5 > 

MOV GSEL.Rl _ „ 

MOV «TABlll,TlTEMP*2 

MOV *1 ,T ITtMP 

BR 500D2* 

INC T1TEMP 

CMP T 1TEMP, «8. 

BGT 500C4* 

MOV *U.RO 

JSR pc.Atype 

MOV 3TlTEMP>2,R0 

JSR PC.MTYPE 

gg° ftBP"** 

; transmit select cooes to ALL TERMINALS 
! FOLLOWED BY ASCII EQUIV OF COOE. 

MOV »T11,RPC(RS) 

■[OUTPUT §LL L dOOES AND ACC 1 1 EQUIVELANTS 


05250 


CMP Rij.«20Q 

8EQ 50008$ 

MOV tSCOD§,RO 

MOVB R1,3(R6) 

JSR PC.MTYPE 

MOVB ,S ‘Sa R2 

{ S NOW CONvfeRT C S?LECT COOE TO ASCII FOR OUTPUT 
)SR PC, CON 

JSR PC.MTYPE 


RI,3(R£p 

pcImtype 


"EG 0067 
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2001 

010530 

005201 


2002 

010532 

000755 


(3) 

010534 



2003 




2C04 

010534 



(4) 

010534 

012765 

010460 

2005 

010542 

052765 

020000 

200b 

010550 

012700 

020411 

2007 

010554 

004737 

007010 

2008 

010550 



3) 

010550 



12) 

010550 

000207 


2005 




2010 




2011 

010562 



2012 

010562 

005037 

010736 

2013 

010555 

110137 

010736 

2014 

010572 

013745 

010736 

2015 

010575 

012745 

000003 

2015 

010702 

012746 

011520 

2017 

010705 

004737 

007566 

2018 

010712 

012700 

011520 

2019 

010715 



(3) 

010716 



(2) 

010716 

000207 


2020 




2021 

010720 

000002 


2C22 

010722 

000000 


2023 

010724 

000000 


2024 

010725 

000000 


2025 

010730 

000000 


2025 

010732 

010460 


2027 

010734 

000020 


2028 

010736 

000000 

000000 

2029 




2030 

010742 

005015 

052012 

2031 

011005 

105 

051122 

2032 

011045 

116 

020117 

2033 

011100 

042523 

042S14 

2034 

011137 

101 

046114 

2035 


311176 


2035 

011176 

020416 

011005 

2037 




2038 




2039 




2040 




2041 




2042 




2043 




2044 




2045 




2046 




2047 




204e 

311216 



2049 

011216 

010337 

011304 

2050 

01 1222 

012702 

0i31 u 4 
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000010 

000004 


05500 

05550 


05750 

05800 


051505 

051117 

042523 

052103 

052040 

011137 


05300 

05350 

05400 

□5450 

05500 

05550 

05500 

m 

05750 


07050 

07100 

07150 

07200 

07250 

07300 

07350 

07400 

07450 

07500 

07550 

07500 

07550 


500055: 
T 15: 


50000S: 
5000 IS: 


5S C 


R1 

5Q005S 


TURN ALL TERMINALS ON AND EXIT TEST 


MOV 

BIS 

MOV 

J5R 


RT 


•Tll.RPC(RS) 

•TOOI^E.MPLACSfRS) 

•ALLON.RO 

PC.MTV^E 

PC 


CON: 


f HIS ROUTINE CONVERTS THE SELECT COOE 
TO ASCII POR OUTPUT IN OCTALC MESSAGE. 


50000S : 
50001 S: 


T01BLK: 


CuR 

MOVB 

MOV 

MOV 

MOV 

JSR 

MOV 


RTS 


f/tLlST : B^X 



TABL1: 


m 

.EVEN 
. WORD 


; GETANS 


y*&7 ,sP> 

•OcTALC.RO 



ITERATION COUNT 
~ S CNT 


ST^fy^PLAGS 
POINTER 
RETURN PC 

; START OP SELECT COOES 


XNO SELEC T iHA^S|NT^wi2> 


AOORESSING/' 15 


CK 

Terminal^ 


/ 

is 


ALLOPP . E9 , E 10 . NSELC . E9 . E 12 . ALLON . GP 


THIS ROUTINE SETS UP ANO READS THE ANSWERBACK 
MESSAGE PROM THE TERMINAL UNDER TE5T 


GETANS: 


MOV 

MOV 


R3.2S 

•TS20.R2 


.AFAC ^A3fc 


m 

£053 

2054 
i4) 

2055 
205b 

,9) 

2057 

2058 

2059 
(3) 

20b0 

20bl 

2062 

2063 

(3) 
(2) 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 
2081 
2082 

(4) 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 
(9) 

2091 

2092 
i.3) 

2093 

2094 

2095 

2096 

2097 

2098 


811111 

011236 

011242 

011242 

011246 

011252 

811118 

011270 

011272 

011274 

011274 

011300 

011302 

011302 

011302 

011302 

011304 
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JDR 
NOV 


DO b 


POI 6 3-3 


8l27^2 88oi§5 

004737 006654 

013702 011304 

004737 007024 

032765 100000 D00004 

105011 
000403 


105237 013212 

000760 


00020 ' 

000000 


011306 

011306 
011312 
011316 
011322 
011326 
G11332 
011336 
011342 
011342 
011344 
011346 
011352 
011356 
011362 
011366 
011372 
011376 
011402 
011404 
011406 
011410 
011410 
011414 
011420 
011424 
011424 
01 1 4 20 


012700 
00473 7 
012702 
004737 
012700 
004737 
013746 

005046 
112116 
012746 
012746 
004737 
012700 
00473 7 
105337 
105737 
003402 
000756 
000426 

012700 

004737 

012700 

012702 

004727 


08000 


IS: 


JSR 


100000 000004 


020421 

007110 

000002 

006654 

owe 

013212 


000003 

011520 

007566 

011520 

007110 

013212 

013212 


017730 

007110 

000023 

000040 

006654 


08350 


08500 

08550 

08600 

08650 

08700 


50002S : 


188881 

5000 IS 


PC. READS 
•EftO, R2 
PC , SECHO 

2S,R2 

PCIrEADIO 

■NtRR . MFLAG5 < RS > 

•MERR , NELRGS < R5 1 
(Rl) 

50003S 

T2CNT1 

IS 


2S: 


RTS 

.WORD 


08850 

08900 

09000 


TYPANS THIS ROUTINE PRINTS THE ANSWERBACK MESSAGE 
IN OCTAL FORMATT . AND ASCII FOR* , AT T . 


TVPANS: 


09337 If: 


09700 


50002S: 


S0C04S: 


•SCOOE.RC 
PC, TYPES 
•Stx,R2 

T2CNT l , -(SP • 
-<SP> 

<R1)K.«SF) 

•3.-C5P) 

$ss&- ,5P 

•o6talc.ro 

pc.typeI 

T2CNT1 

S0002S 

If 

S0003S 

•U.RO 
PC.TYPES 
•19. ,Ru 

•40. R2 
PC , SECHO 


0 CC63 


EOfe 

PPOE 3-4 


ZLAPAO 
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2099 

011434 

005300 





Q|c 

RO 

2100 

01143b 

005700 





TaT 

RO 

( 5 » 

011440 

001401 





BEO 

500Q5S 

2101 

011442 

000770 





BR 

50004* 

3J 

011444 





50005S: 



2102 

011444 

012700 

013220 




MOV 

•T2BUF RO 

2103 

011450 

004737 

007110 




J5R 

PC, TYPES 

2104 

011454 

012700 

017730 




MOV 

•L1.R0 

2105 

OU4bO 

004737 

007110 




JSR 

pc, types 

210b 

0114b4 





50003S: 



2107 

0114b4 

0l2b37 

013212 




MOV 

(SP)+, T2CNT1 

2108 

011470 





50000S: 



; 3 ) 

011470 





50001S: 



.2) 

011470 

000207 





RTS 

PC 

2109 

011472 

005015 

047101 

053523 

10100 

ANSHDR : 

.ASCIZ 

< 15 > < 12/ /ANSWERBACK PEC VO 

2110 

011520 

03Q0bC 

0 2~-*b3 

000 

10150 

OCTALC: 

. ASCIZ 

♦000/* 

2111 


Zi 152b 



10200 


.EVEN 


2112 





10250 





2LAFA0 
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2114 

2115 




2116 

2117 

2118 
2118 
2120 
2121 
2122 
2123 

01 1526 



2124 

011526 

012700 

013326 

2125 

011532 

012701 

013220 

2126 

011536 

012705 

013176 

2127 

011542 

004737 

007010 

212B 

2128 

011546 



2130 

2131 

011546 

105737 

016134 

(5) 

011552 

001065 


2132 

011554 

Cl 2701 

01 3220 
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011560 
□ 1 1566 
011574 
011600 
011604 
011&10 
011616 
011624 
011624 
011632 


013737 

013737 

006337 

006337 

006337 

062737 

112777 

023727 

001435 


010734 

016160 

013216 

013216 

013216 

016176 

000200 


013214 

013216 


013216 

001372 


10350 
10400 
10450 
10500 
10550 
10600 
10650 
idr ju 
107>0 

10850 

10800 

10850 

11050 

11100 

11150 


11300 

11350 

11400 

11450 


.LIST BEX' 

*************************** 

TESTS AUTO ANSWER BACK OPTION . 

SINGLE LINE TESTS REQUIRE MANUAL INTERVENTION 


* * * * 


* * * * 


****** 


. ENABL LSB 
TEST2: 


013214 000200 


MOV 

MOV 

MOV 

JSR 

: If the 
; FOR THE 


StI|u?,ri 

»T02BLfc.R5 


; SET UP STACK-2 AS INPUT BUFFER 
•SET UP POINTER TO MODULE BLOCK 


CR TEST HASN'T BEEN SIZED 
lACK OPTION DO SO NOW. 


500031: 






11600 

11850 

11800 

11850 

12000 


m 

m 

ftove 

011634 

113737 

013214 

020424 



011642 

012700 

020421 




MOV 

011646 

004737 

007H0 




JSR 

011652 

012703 

000310 




MOV 

011656 

105037 

013212 




CLRB 

011662 

004737 

011216 




JSR 

011666 

105737 

013212 




bIq® 

011672 

001412 





011674 

113777 

013214 

001314 



m§v! 

011702 

113737 

013214 

016134 



011710 

012737 

000200 

013214 



MOV 

011716 

011720 

000402 




50005S: 

BR 

011720 

105237 

013214 




INCB 

011724 

011724 

000737 




50006S: 

BR 

01 1726 





500041: 



tSTB OL.OTH 

BNE 500021 

?CHECK DLOiH E^fT&Y OF LINE TABLE FC° CURRENT 
LINE. IF LOBYTE IS 0 NO SIZE HAS BEEN DONE. 

| If * 200 Lire sized but no answer recvd. 

ftov GSEL . T2TFMP 

MOV 0f^IA.T2TEMP*2 

ASL t|t|hp+| 

CMP T2TE|1P,«200 

!jy",sliSHWir vE ?Hi , e?s E T ?i8ff LE: ' 

\Sf w %M»i o “°- 


*i" 

$1"" 


T2TEMR 

500031 


CZLAFAO i-A36 TERM "ST MAC - * 1 30A‘1052 
CZLAFA.Pll C3-JAN-~8 11:20 


03 -JAN-77 00:01 

_«3fe OPTION TESTS 


GO b 

PAGE 3-fa 


SEG 0C?1 


21fa2 

011726 


2163 



2168 

Cl 1726 


2165 



2166 



2167 



2168 

011726 

123727 

(8) 

011738 

001015 

2168 



2170 



2171 



2172 

011736 

012765 

2173 

011788 

0S2765 

2178 

01 1752 

105065 

2175 

0117S6 

C12765 

217b 

011768 

000207 

2177 

011766 

300863 

C3) 

011770 


2178 

011770 

012701 

2178 



2180 



21B1 



21B2 

011778 

113737 

21B3 

012002 

012700 

2188 

012006 

C08737 

2185 

012012 

012703 

2186 

012016 

105037 

2187 

012022 

008737 

2188 



2188 



2180 

012026 

105737 

f 8 ) 

012032 

001015 

2181 



2182 



2183 



2188 

012038 

012765 

2185 

012082 

052765 

2186 

012050 

112765 

2187 

012056 

012765 

2188 

012068 

000828 

f 3) 

012066 


2188 

012066 

012765 

2200 



2201 



2202 

012074 

123727 

(8) 

012102 

003811 

2203 



2208 



220S 



2206 

012108 

052765 

2207 

012112 

112765 

2208 

012120 

012765 

2208 

012126 


2210 

012126 

012701 

2211 

012132 

008737 

2212 

012136 



r 0:6134 000200 


013220 

011306 


I2fa00 

12fa50 

12700 

12750 

12800 


12800 

12850 

13000 


012530 

000010 


100000 

000008 


000008 

013356 

000006 

13250 

013220 


13800 

13850 

13500 

016138 

020821 

007110 

000310 

013212 

011216 

020828 

13850 

13500 

□13212 


18000 

18050 

18100 

012530 

000010 


100000 

000008 


000001 

000008 


0133S6 

000006 


012180 

000010 

18450 

14S00 

013212 

000028 

18600 

18650 

18700 

100000 

000008 


□00002 

000008 


013808 

OOOOC6 



50002S: 


500071: 


IF THE LINE HAS BEEN SIZED. BUT NO 
SELECT CODE HAS BEEN MAPPEIj NOTIFY THE 
OPERATOR . 


ERROR *0 


DLOTH. *200 
50007* 


NO ANSWERBACK FROM TERMINAL 


ftov •T2M. RPC tR5 ) 

BIS *MERA. MFLAGS^ R5 » 

CLRB MFLAG5(R5) 

MOV *E18, POINT ( R5 ) 

RTS PC 

BR 5001 OS 

MOV BT2BUF.R1 , , _ . 

; GET THE SELECt CODE FROM THE LINE TABLE b 
•REQUEST AN ANSWERBACK. 

ftovB DLOTH.SCODE+3 

MOV ■SCOOE.RO 

JSR PC .TYPES 

MOV *200 . , R3 

CLRB T2CNT1 

( CHECK FOR*AN™RESPONSE FROM TERMINAL 
tSTB T2CNT1 

Terror *i 011 * no answerback, recie/ed. 


5001 IS: 


•T2H.RPC<R5> 
•MERft . NFL AGS < R5 ) 
•l.HFEAGStRS) 
•ElH^PdNTCRS? 

•T83.RPC f RSI 


; TEST LENGTH OF ANSWERBACK SHOULD BE 20 MAX. 

far »* ?0 - 


; ERROR *2 


ANSWERBACK OVER 20 CHARS LONG. 


500 13S: 


500 12S: 


•MERR. MFLAGS ( R5 > 
*2 . Mf LAGS ( R5 j 
■ElS.P0INT(R5! 


tWp&k 


.c^afac term tst ma. > 11 30**1 J 5£ 
'Z^AFP.Pll C3-JAN-”8 li:2C 


2213 

2214 

01213b 

012135 

00020 ” 



22 IS 
221 6 

C1214C 




2217 

2218 
2219 

012140 

012765 

012205 

000010 

2220 

012145 

113737 

013212 

013213 

2221 

012154 

012701 

013220 


2222 

012150 

012700 

020574 


2223 

012164 




2224 

2225 

012164 

105737 

013212 


iS> 

012170 

001404 



2225 

012172 

112120 



2227 

012174 

105337 

013212 


2228 

012200 

000771 



(3) 

012202 




2229 

2230 

012202 

105037 

013210 


2231 

2232 

2233 

012205 




012205 

012701 

013220 


2234 

2235 
2235 

012212 

105037 

013212 


2237 

012215 

012700 

020421 


2238 

012222 

012703 

000310 


2239 

012226 

004737 

011215 


2240 

2241 

2242 

2243 

01223c 

105237 

013210 


2244 

2245 

012236 

105737 

013212 


(9) 

012242 

□01012 



2245 

2247 





2248 

2249 

012244 

052755 

100000 

000004 

2250 

2251 

2252 

012252 

012260 

012266 

012765 

H276S 

□00500 

□ 13355 
000030 

888884 



(3) 

012270 




2253 

2254 

012270 

105011 



2255 

012272 

123737 

013212 

013213 

(9) 

012300 

001416 




012302 

012306 

012701 

004737 

MS 


2258 





2259 

2250 





2251 

012312 

052765 

100 CC 0 

000004 

2252 

012320 

112765 

000031 

000004 

2252 

012325 

012755 

D 13356 

000005 


03-JAN-”7 
IA35 OPTION 


00:01 

TESTS 


PAGE 


HOb 

3-" 


SEC CC72 


15150 

15200 

15250 

1S300 

15350 


15550 


15950 

lbOOO 

15050 


15200 

15250 


15500 

15550 

15500 

15550 


15850 


17150 


17350 
174C 
174? 


500105: 

T23: 


RTS PC 
SAVE COPIES OF 


THE ANSWERBACK AND I T '' 

J?6fF? E ?S E flBI R Sf£ K y°sSi? ES ” 0RE ' 


LENGTH 


5001*41: 


50015*: 


MOV 

MOVB 

MOV 

MOV 


«WiW4BW 

•T28UFIR1 

•STACKj.RO 


♦ht "msw* 


TO 5TACK3 FOR COMPARISONS 


BEQ 


50015 * 


(RQ ) ♦ 


CLR0 T2SAV1 
T23A: j RESET INPUT 8 UFFER POINTEP AND ZERO COUNTER 

kfe ihm -" 1 

;SEND SELECT SEQUENCE TO TERMINAL 
; THEN READ ANSWER „„ 

MOV •SCOOE.RO 

MOV ■20Q..R3 

JSR PC.GEtANS 

1NCB T2SAV1 

; IF NO ANSWER NOTIFY OPERATOR „ „„ 

IF OLD ANSWER DIFFERENT FROM NEW ANSWER 
; NOTIFY OPERATOR. 


TSTB T2CNT1 

SHE 50015* 

ERROR *30 


NO ANSWERBACK DUPING T£N C£AD i-OC c 


50C15S: 


6 lS 

MOV 

MOVB 

BR 


•MERR. MFLAQS t R5 ■ 

" fcMNTiRSJ 
FLAGS iRS- 



iho^PARE S LENGTHS OF ANSWERS 
dMPB T2CNTI.T2CNT2 

i tm 

ERROR «31 INCONSISTANT ANSWERBACK S 


SlS •M£RR. MFLAGS< R5 > 

MOVB i31,MFLAG5(R5l 

MOV >E 14, POINT R5 


T ERM T5T 

. Zi-RR 0 . p 1 1 C3-JAN-~e 


22b4 

012334 

000455 

i3J 

01233b 


22b5 

01233b 

012701 

22bb 

012342 

012700 

22b7 



22b8 



2259 

01234b 

005037 

2270 

012352 

113737 

2271 

0123b0 

005037 

2272 

0123b4 

012737 

(51 

012372 

000402 

f 41 

012374 


1 7 ' 

012374 

005237 

i5) 

012400 


i5) 

012400 

023737 

(71 

01240b 

003024 

2273 

012410 

122021 

(8) 

012412 

001421 

2274 



2275 



227b 




012414 

052755 

2278 

012422 

112755 

2279 

012430 

012755 

2280 

01243b 

012701 

2281 

012442 

113737 

2282 

012450 

013737 

2283 

01245b 


2204 

01245b 

00074b 

(31 

0124b0 


2285 



22Bb 



2287 

0124b0 

012701 

2288 

012454 

004737 

2289 

012470 


2290 

012470 


2291 

012470 

032755 

(9) 

01247b 

001401 

2292 

012500 

000207 

2293 

012502 


2294 



2295 

012502 

123727 

(9) 

012S10 

001005 

229b 

012512 

012755 

2297 

012520 

000207 

2298 

012522 

000402 

(3) 

012524 


2299 

012524 

000137 

2300 

012530 


2301 



2302 

012530 


2303 



2304 



2305 

012530 

012701 

230b 

012534 

105037 

23C7 

012540 

012702 


MO. > 11 300. 1052 03 

11.20 L«3b 


1-800 

i'B50 

013214 

013212 01 321 4 

01321b 

0000C1 01321b 


01321b 

01321b 013214 


leisc 

18200 

18250 

100000 000004 

000032 000004 

013575 00000b 

013220 

013213 013212 

013214 01321b 


18700 

18750 

013220 

01130b 


100000 

000004 

19050 

013210 

0000 1C 

19150 

012530 

000010 

19300 

01220b 


19400 



19500 

19500 

19550 


013220 



CZLPFAO ^.436 TER1 TST MOCvn 30fH10S2' 03-Jgt; 

CZLfiFP.Pll 03-J«N-~8 11:20 1436 0P1 


2308 

012544 

004737 

006654 



230*3 

012550 

01 2700 

020421 



2310 

012S54 

112737 

000007 

020424 

• 

2311 

012562 

004737 

007110 



2312 

012566 

012703 

000310 



2313 

012572 

004737 

011216 



2314 

012576 

105737 

013212 



: 9 ) 

012602 

001415 




2315 





20050 

2318 





20100 

2317 





20150 

2318 

012604 

052765 

100G00 

000004 


2318 

012612 

112765 

000004 

000004 


2320 

012620 

012765 

013632 

000006 


2321 

012626 

012765 

012636 

000010 


2322 

012634 

000207 



20400 

2323 

012636 





2324 

012636 




20500 

2325 





20550 

2326 





20600 

2327 

012636 

032737 

000040 

001364 


(92 

012644 

001424 




2328 

012646 

004737 

002110 



2329 

012652 

012765 

012734 

000010 


2330 

012660 

032737 

000400 

001364 


(9) 

012666 

001406 




2331 

012670 

042737 

000400 

001364 


2332 

012676 

052765 

020000 

000004 


2333 

012704 





2334 

012704 

012765 

011546 

000010 


2335 

012712 

000207 



21000 

2336 

012714 

000512 




(3) 

012716 





2337 

012716 

113737 

016134 

020424 


2338 

012724 

012700 

020421 



2339 

012730 

004737 

007110 



2340 

012734 




21100 

(4) 

0i2734 

012765 

013034 

000010 


2341 

012742 

012701 

013220 



2342 

012746 

012702 

000002 



2343 

012752 

004737 

006654 



2344 





21300 

2345 





21350 

2346 

012756 

012700 

013252 



2347 

012762 

004737 

007110 



2348 

012766 

105037 

013212 



2349 

012772 

012703 

007640 



2350 





21600 

2351 

012776 

004737 

011216 



2352 

013002 

105737 

013212 



(9j 

013006 

001012 




2253 





21750 

2354 





21800 

2355 





21850 

2356 

013010 

0S2765 

100000 

000004 


2357 

013016 

112765 

000005 

000004 




KOb 


:ZlAFAO 

t.A3b TERM TST 

MAC i 1 1 

30Ai 10521 

03- 

:ZLAFA. 

Pll 

03- JAN-78 

11:20 


LA36 

2358 

013024 

012765 

01J475 

000006 


2359 

013032 

000207 



22050 

2360 

013034 





2361 





22150 

2362 

013034 




22200 

2363 





22250 

2364 





22300 

2365 





22350 

2366 

013034 

012765 

011726 

0000 10 


2367 

013042 

012701 

013220 



2368 

013046 

012700 

013305 



2369 

013052 

012703 

007640 



2370 

013056 

105037 

013212 



2371 

013062 

004737 

007110 



2372 

013066 

004737 

011216 



2373 

013072 

105737 

013212 



i9> 

013076 

001013 




2374 





22800 

2375 





22850 

2376 





22900 

23 7 7 

013100 

052765 

100000 

000004 


2378 

013106 

1 12765 

000006 

000004 


2379 

013114 

012765 

013540 

000006 


2380 

013122 

000207 



23100 

2381 

013124 

000406 




(3) 

013126 





2382 

013126 

052765 

020000 

000004 


2383 

013134 

012765 

011726 

000010 


2384 

013142 






SEC 0075 


500351 : 


ME 17 , POINT ( R5 ) 
PC 


;TEST CTL-E FUNCTION 

;SE UP TO TEST CTL-E FUNCTION 


ftOV MT22,RPC<R5i 
MOV •T2ByF,Rl 

MOV MCE.RO 

MOV MM0£)Q.,R3 

CLRB T2CNT1 

JSR PC, TYPES 

JSR PC.GETANS 

TSTB TgCNTJ 

BNE 500369 

; ERROR M6 NO RNSUERBRCK FROM CTL-E KE < 


013142 

013142 


013144 

013150 

013156 

013164 

013170 

013172 

013172 

013172 


013174 

013176 

013200 

013202 

013204 

013206 

013210 

013212 

013213 


000207 


117721 002766 
052737 004000 
012777 000101 
005037 007564 
000002 


000207 


000 

000000 

000000 

000000 

000000 

011546 

000000 

000 

OOG 


23400 

23450 

23500 

23550 

23600 


50036S : 


50037$: 

500341: 


PC 

50037$ 


•TDONE .HFLAGS ( R5 ) 
•T22.R^CfR5l 


001364 

002744 


RTS PC 
«*•**»*«•**» 

THIS ROUTINE IS THE 
FOR TESTS Ml AND M2 


KEYBOARD INTERRUPT HANOLER 


23750 

23800 

23B50 

23500 

23950 


24050 

24100 

24150 

24200 

24250 

24300 


T220: 


50000$: 

50001$: 

RTS 

: •»**«*»•«»** 

• DSft ° L ‘-ivTE 
T02BLK: .WORD 
.WORD 
.WORD 
.WORD 
WORD 

T2SAV1: [WORD 
"2CNT 1 : .BYTE 
T2CNT2: .BYTE 


BOVCRXB.tRli* 
•OAT AIN. PCFL AG 
ilOl.aoiACR 
oelaW 


•.STORE CHAR IN POINTEP 
•SET OATA-IN FLAG 
.-REENABLE THE RECVR 
;A90R T Tfe TIMEOUT 


ITERATION COUNTS 

CTLCNT 

PASS COUNT 

S TATUS FLAGS 
OINTER 
RETURN PC 


t it J 


LOb 


,.PF»0 A3fe T ERN TST MflC'ill 30Pil0S2' 03-JAN-77 00:01 

LAPP. P11 03-JAN 78 11:20 L«3b OPTION TESTS 


PPGE 3-11 


CEO CC7b 


013214 
013220 
01322b 
013234 
013242 
01 3250 


013252 

013305 

01332b 

01335b 

013404 
013440 
013475 
013540 
010-70 
Ol Jb32 


000000 

000000 

000000 

000000 

000000 

000000 


005015 

01S 

82Piii 

047101 

047101 

no 

052103 

101 

04"10l 


000000 

000000 

000000 

000000 

000000 


83iB?2 


041123 

041123 

051105 

025514 

05151b 

041123 


000000 

000000 

000000 

000000 


BMK 

SIR 

041501 

041501 

020105 

020105 

042527 

041501 


24500 

24505 


24550 

24700 

1338 

24050 

25000 


25250 

25300 

25350 


T2TEMP: .WORD 0.0 

T2BUP: .WORD 0, 0, 0, 0, 0,0, 0, 0, 0, 0,0, Q. 


BJFPEF POP PNSWE°3hV 


Si; I5T “Il8i5 < «ll5ai{«(nWBI/5!.7,Sf 


IS — KE *v / 15' / 12 - 


ASCI? /WfSBACK FISC QYtS.jo cwws/<is> < 12 . 


.LIST BEX 


. PSCIZ /fiNSBRCK RECVO FROM BROAOCRST SELECT/' 15/ 12 
.EVEN 


013700 
01370M 
013710 
013714 
013722 
013724 
013730 
013734 
013740 
013744 
013750 
013752 
01 3754 
013750 
013754 


:ZL«F«0 <_A3b 
:Jlafa fh 


2428 

2428 

2430 

2431 

2432 

2433 

2434 

2435 
2435 

2437 

2438 
2438 

2440 

2441 

2442 

2443 

2444 

2445 
2445 

2447 

2448 
2448 

2450 

2451 

2452 

2453 

2454 

2455 
2455 

2457 

2458 
2458 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 
2468 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 
2478 

2480 

2481 

2482 
2433 


TERM TST 
03-JAN- 


MAC'rll 30AUQ52) 

*8 i 1 : 20 LA 


012700 

004737 

012705 

032737 

001424 

012701 

113702 

004737 

012702 

004737 

005301 

001372 

012700 

004737 

052765 


013772 000207 


013774 

014002 

014010 

014016 

01402b 

014032 

014035 

014042 

014045 

014052 

014055 

014052 

014055 

014072 

014075 

014102 

014106 

014112 

014115 

014122 

014124 

014130 

014136 

014140 

014144 

014150 


012765 

012737 

012737 

012700 

112037 

112037 

111037 

012700 

004737 

013700 

112037 

112037 

112037 

010037 

012702 

004737 

012702 

C04737 

000406 

005037 

0S2737 

000002 

012700 

004737 

042737 


-JAN-77 

OPTION 


00:01 

TESTS 


MOfe 

PAGE 3-12 


-EG 0077 


014376 

007010 

014342 

000040 

000102 

016167 

005270 

000006 

006270 


014427 

007010 

020000 


013774 
014610 
014362 
01 4443 

8RUS 

014564 
014565 
014566 
Cl 4557 
007110 
014356 
014564 
01 4565 
014566 
014356 
014124 
007124 
035230 
007024 

007564 

004000 

017730 

007110 

004000 


001364 


25500 

25550 

25600 

m 

25750 


000004 


000010 

014356 

014354 


268S0 

m 

27000 

27050 

£i§8 

27200 


001364 


001364 


27350 

|7400 

27500 

27550 

27600 

27650 

27700 

|7750 

27850 

27800 

278S0 

28000 

28050 

28100 

28150 

28200 


**♦»***»»*#»**♦**♦♦* 


TEST3 OPERATOR 0 INTERVENTION REQUIRED IN SINGLE cINE MODE 

************************************ 
. ENABL LSB 


25800 TEST3: 

26000 

26050 

illSB IS: 
26200 

26300 21: 

26400 

26450 

26500 

26600 

26650 

26700 


•T3.R0 

pc.Atype 

•TteBLK.R* 
•MULTI ,PCr 

■lb. »R1 

FF.rS 

PC.flECHO 

•AcK,R2 

PC.flECHO 

a 

■oas.ro 

pc.ntvPE 

•t6one,hfi 


;SU FOR TEST HEADER 

;SET UP POINTER TO MODULE BLOCK 
CHECK FOR SINGLE LINE MODE 

iflHWFORWoRiiS 

S MOVE TO TOP OF f jRM 


FLAGS (RS) 


; SET ATTENTION & DONE Fi.AGS 


iTHIS SECTION FOR SINGLE LINE MANUAL INTERVENTION 


MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

movb 

XI 

MOV 

JSR 

MOV 

movb 

MOVB 

MO VS 

MOV 

MOV 

JSR 

MOV 

JSR 

0R 

CLR 

eis 

RTI 

MOV 

JSR 

BIC 


S&THSi. 

* mo tSs 

dLayt 

■ORTAIN.PCFLAG 

•Li.RO 
PC. TYPES 

•oAtain.pcflag 


;SET RETURN PC TO HERE 
GET list of FORM lengths 

;GET FIL COUNT 

; SET UP MESSAGE WITH 
; I NS TRUCTIONS FOR 3" 

; SEND SU MSG 

; MODIFY INSTRUCTIONS FOR 
;NEXT LOOP 

: 5RVE THE LIST POINTER „ 

; PASS 6S AS VECTOR TO READ ROUT PC 
GO SET VECTORS 
’•SET UP IS SEC OELAN 

; ABORT THE TIMEOUT 


; IN CASE LINE 0 


; SEND CR-LF 


CZLAFAO LA36 TERM TST MRCY11 30A(10S2) 
CZLAFA.P11 03- JAN-70 11:20 


03- T , -IN-77 00:01 

LA3F °T ION TESTS 


PA 


2404 

014155 

042755 

100000 

000004 

2485 

014154 

117737 

000154 

014350 

2485 

014172 

113702 

015157 


2407 

014175 

004737 

005554 


2408 

014202 

012702 

000005 


2480 

014205 

004737 

005337 

005554 


2400 

014212 

014350 


2401 

014215 

001371 



2402 

014220 

012700 

014427 


2403 

014224 

004737 

007110 


2404 

014230 

012702 

000012 


240S 

014234 

004737 

005554 


2405 

014240 

117737 

000110 

014350 

2407 

014245 

113702 

015157 


2408 

014252 

004737 

005554 


2400 

014255 

012702 

000005 


2500 

014252 

004737 

005554 


2501 

014255 

005337 

014350 


2502 

014272 

001371 



2503 

014274 

012700 

014427 


2504 

014300 

004737 

007110 


2505 

014304 

012702 

000012 


2505 

014310 

004737 

005554 


2507 

2508 

014314 

005237 

014354 


2500 

014320 

023727 

014355 

014651 

2510 

014325 

001247 



2511 

2512 

014330 

0S2755 

020000 

000004 

2513 

014335 

000207 



2514 

2515 

014340 

000 

003 


2515 

014342 

000000 



2517 

014344 

000000 



2518 

014345 

000000 



2510 

0143S0 

000000 



2520 

2521 

014352 

013724 



2522 

014354 

000000 



2523 

014355 

000000 



2524 

2525 
2525 
2527 

014350 

000000 



2528 

014352 

022 

025 

030 

2520 

014370 

050 

053 

osisof 

2530 

014375 

005015 

052012 

2531 

2532 

014427 

014443 

075 

120 

036475 

042522 

036475 

051523 

2533 

014473 

101 

052105 

051105 

2534 

014525 

054524 

042520 

042040 

2535 

014557 

055 

042523 

020124 

2535 


014510 

?527 

014510 

027053 

065 


2538 

014512 

040 

032040 


2530 

014515 

027055 

065 



2S250 

20300 

28350 

20400 

2BHS0 

iiii§ 

28600 

20550 

20700 

28750 

20000 

28050 

28000 

28050 

20000 

20050 

20100 

20150 

20200 

20250 

20300 

20350 


20500 
20550 
20500 
20550 
20700 
20750 
20800 


20050 

30000 

30050 

30100 

30150 

30200 


30300 

30350 


30000 

30050 

31000 


T038LK: 


T3SRV: 

T3SAV1: 

T3SflV2: 


.MUST BEX 
FILLS: .B'l 


HORS: 







oo 


Z LAEAC 
ZLAEA.I 

2540 

2541 

2542 

2543 

2544 

2545 
254b 
2547 
2540 

2549 

2550 


B07 

LA3fe TERN TST HflCUl 30AU052' 03-JAN-77 00:01 PP'lt 3-14 

11 03-JAN-78 11:20 LA3b OPTION TESTS 


C 14b21 

040 

033040 

31050 


. RSC 


/ 

b/ 

014&24 

020040 

0b7 

31100 


.RSC 


/ 

?' 

014b27 

040 

034040 

31150 


.RSC] 

t] 

✓ 

a / 

014b3£ 

027070 

0b5 

31200 


.rIc; 


/B.S- 

0 14b3I 

040 

0304b 1 

31250 

HDRSB: 

.rsc: 


/ 

11/ 

014b40 

030440 

0b2 

31300 


.RSC] 

\\ 

/ 

12/ 

0 1 4b43 

040 

0320b 1 

31350 


.RSl 

I] 

/ 

14/ 

014b4b 

020040 

0b3 

31400 

H0R5P: 

.RSC 

: 

/ 

3/ 

014b51 



31450 

HDR5E: 





014552 


31500 


.EVEN 






31550 

.LIST 

X 

Ul 

m 





CZLAFAQ LA36 TERM TST MAC i 1 1 30Ail052 
cZLAFA.FlJ 03-JAN-78 11:20 

255c 

2553 

2554 

2555 
255b 

2557 

2558 

2559 
25 bO 

2551 

2552 014552 012705 015246 

2553 014555 012700 01532C 

2554 

2555 014552 004737 007010 

2555 014555 012737 015270 015254 

2557 014574 012755 014702 000010 

2358 014702 012702 000033 

2559 014705 013737 015145 015252 

2570 

2571 014714 004737 005270 

2572 014720 012702 000052 

2573 014724 004737 005270 

2574 014730 117737 000330 015315 

2575 014735 005237 015254 

2575 014742 105077 000315 

2577 014745 013701 015315 

||7^ 014752 012700 017730 

2580 014755 004737 007010 

2581 014752 153737 015315 015252 

2582 014770 002434 

2593 

2584 01 4772 Q053Q1 

2585 014774 001405 

2585 014775 012702 000055 

2587 015002 004737 005270 

2588 015005 000771 

2589 015010 012702 000033 

2590 

2591 015014 004737 005270 

2592 015020 012702 000051 

2593 015024 004737 005270 

2594 

2595 015030 012702 000010 

2595 015034 004737 005270 

2597 

2598 015040 012702 0D0125 

2599 015044 004737 006270 

2600 015050 105277 000210 

2601 0150S4 013701 015315 

2502 015060 000740 

2503 
2604 

2505 015062 012737 000003 015266 

2606 015070 117737 000170 015315 

2507 015075 001440 


> 03- JAN-77 00:01 

_A36 OPTION TESTS 


CQ7 
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31650 

31700 

ii7«;n 

m 

31900 

3M8 

32050 


015316 


015262 


32250 

32350 

32400 

32450 

32S00 

32550 

32650 

32750 

32800 

32850 

32900 


SIS 

33200 


33350 

33450 

33500 

33550 

33650 

33750 

33800 

33900 

33950 

34050 

34100 

34150 

34200 

34250 

34300 

34350 

34400 


. DSABL LSB 

#tiit«i»*i#«*#**»**#*»****»*******»* 


TEST4 


HORIZONTAL TAB OPTION 
IF USING OTHER THAN 132 COL PAPER CHANGE LGC "WIDTH" 
TO hPPROPRIATE VALUE- SEE WN COMMAND . 


************ 


TEST4: MOV »T0MBLK,R5 

MOV »T4,R0 

; PRINT TEST HEADER _ 

J5R PJxMTYPE 

T4I : MOV •TAbLS. T4SAV2 

MOV •T42,RrC(R5) 


> SET UP POINTER TO MODULE BLOCK 


SEND ESC-2 TO 
JSR 
MOV 
JSR 
MOVB 
INC 
CLRB 
MOV 
MOV 

SEND CR/LF 
JSR 


wf|?&??45AVl 
RESET ALL TABS. 

rasr 

pc. Aecho 

3T4SAV2.TAB 

T4ShV2 

3T4SAV2 

TA.9.R1 

«li|ro 

PC.MTYPE 

TA6.T4SAVI 

bS 


-.GET TAB COUNT FROM TABL4 
; INITIALIZE COUNT TO ZIP 


F INISHe6^¥hI§^ L?N^- KW* 
TYPE (TAB-1 ) PERIODS 


•' . ,R2 
PC.MECHO 

TO sIIVIaS 
PC.MECHO 

PC.MECHO 

KSPflC . 0< R2 

PONCHO 


AS A FQRHATT FOR 
COMPARISON 
PRINT PERIOD 


; SET TAB 


SI: MOV •E5C.R2 ;SET TAB 

; SEND ESC- 1 TO grA TAB 
JSR PC.MECHO 

MOV » , 1 J R2 

JSR PC, MECHO 

; SEND A BACKSPACE 

MOV «10.R2 

JSR PC.A|CHO 

; PRINT A V FOR REFERENCE 
MOV *’ Vjfcf 

INCB a?Asflv2° ;INC8 Tfte C0UNT 

MOV TAB.Ri SET TAB POS AGAIN 

BR 31 ;FORMATT NEXT 5ECTI0 

; LINE SHOULD LOOK LIKE THIS: V V V. .ETC 

61: MOV »3. COUNT ;00 3 LINES OF TABS 

71: MOv'B flTAsAva.TAB ; GET TAB COUNT 

BEG IIS :=G' - BRANCH OUT 


;INC8 TAB COUNT 
GET TAB POS AGAIN 
;FORMATT NEXT SECTION 


5?®:- 


Ha 


'LAFAO 4_A3fa TERM T5T MAO 1 1 30AU052 
j_AFA.Pl! 03- JAN-78 11:20 


2608 

015100 

005237 

015264 


2609 

2610 

01S104 

012700 

017730 


2611 

□ 151 10 

004737 

007010 


2612 

2613 

015114 

012702 

000011 


2614 

015120 

004737 

006270 

015260 

2615 

015124 

117737 

000134 

2616 

2617 

015132 

012702 

000006 


2618 

015136 

004737 

006270 


2619 

2620 

015142 

015146 

005337 

001371 

015260 


2621 

2622 

015150 

012702 

000130 


2623 

015154 

004737 

006270 


2624 

2625 

OlblbQ 

015164 

005337 

001353 

015316 


2626 

015166 

005337 

015264 


2627 

2628 

015172 

015176 

005337 

001334 

015266 


2629 

015200 

012700 

017051 


2630 

015204 

004737 

007010 


2631 

015210 

062737 

000002 

01S264 

2632 

2633 

015216 

015224 

023727 

001226 

015264 

015315 


015226 

052765 

020000 

000004 

2636 

2637 

2638 

015234 

015242 

012765 

000207 

014666 

000010 

2638 

015244 

000 

004 



015246 

015250 

015252 

015254 

015256 

015260 

015262 

015264 


000000 

000000 

000000 

000000 

014702 

000000 

000000 

000000 


1 03- JAM-77 00.01 

LA36 OPTION TESTS 


PAGE 3- lb 


SEO 0081 


34450 

34500 

34550 

34650 

34700 

34800 

34850 

34900 

35000 

35050 

35100 

35150 



35600 

35650 


36000 



2651 

□ 15266 

000002 



36750 

2652 

015270 

004 

000 

002 

36600 

2653 

015273 

010 

000 

004 

36850 

2654 

015276 

on 

000 

005 

36900 

2655 

015301 

020 

000 

010 

36950 

2656 

015304 

022 

coo 

012 

37000 

2657 

015307 

040 

000 

021 

37050 

2658 

015312 

100 

000 

041 

37100 


015315 

000 




2659 

015316 

000000 



37150 

2660 

015320 

005015 

052012 

051505 

37200 


015326 

020124 

020064 

047510 

05211b 



015334 

□44S82 

047532 



INC T 4SAV2 

MOV »l 1 , RO 

: SEND A CR/LF 

JSR PC.MTYPE 

85: MOV «1 1 ,R2 

; SEND A H0RIZ-TA6 

X SMB? 


95: MOV iACK.R 

; SEND FILL CHARACTERS 


IV2, T4SAV j GET FILL COUNT TABS 2 


JSR 

DEC 

8NE 

MOV 

PRINT AN 
J5R 


PC.MECHO 

T4$AV 

95 

»’X.R2 

undeA each V 
PC.MECHO 

ta6 

?4SAV2 

CgUNT 

»L3. RO 
PC.MTYPE 
•2.T4SAV2 
T4&AV2, «TA8“1 
T42 


DEC TAB COUNT 
MORE TABS - BRANCH 
FIX POINTER 


00 3 L 
NOT 0? 


BRANCH 


;G£T NEXT TABLE ENTP < 

; END OF TABLE’ 
; NO - DO NEXT SET 


•TOONS. MFL ACS (R5) 
•T4i , RPC i RS 1 
PC 


; SET ATTENTION ANC CONE c^ASS 


TQ4BLK: 


T4SAV: 

T4SAVI 


.8YTE 

.WORD 

.WORD 


T4SAV2: .WORO 


COUNT: .WORO 2 

TA8L4; .BYTE 4,0.2 
.BYTE 8., 6. 4 
.BYTE 9,, 0.5 


.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 

.WORD 0 
. ASC 1Z 


9,, 0.5^ 


; ITERATION COUNTS 

;PAsi N COUNT 
STATUS FLACS 
POINTER 
• RETURN PC 

; STORAGE 


; TAB. TAB COUNT, FILL COUNT 
; TABLE FOR TE5T 4 


n 

64. .0,33. .0 


15> < 12> < 12* -'TEST 4 HORIZONTAL TAB US' <12 


nr i 


E07 

cRFAC ^*36, TERM TST NftCVll 30fla0SS 03-JAN-77 00:01 PPGE 3-17 

^FA.cil 03-JAN-~8 11:20 LR3b OPTION TESTS 

015342 046,101 052040 041101 

015350 005015 000 

26,61 015354 37250 . EVEN 



IlAFAO _A36 T ERM '5’ 

c3-jan-~8 


2558 



2559 



257C 



2571 



2572 

015354 

012700 

2573 

015360 

012705 

2574 

015364 

004737 

2575 

015370 

032737 

2575 

015376 

001046 

2577 

01S400 

012700 

2578 

015404 

112037 

2579 

015410 

112037 

2580 

015414 

112037 

2581 



2882 

015420 

012700 

2583 

015424 

004737 

2584 

015430 

012700 

2685 

015434 

004737 

2688 

015440 

012702 

2887 

01S444 

004737 

2688 

015450 

012702 

2889 

015454 

004737 

2690 

01 5450 

032737 

2691 

015455 

001770 

2692 

015470 

042737 

2693 

015476 

000406 

2694 



2695 



2698 

015500 

005037 

2697 

015504 

052737 

2698 

015512 

000002 

2699 



2700 



2701 



2702 

015514 

012737 

2703 

015522 

012765 

2704 

015530 

012737 

2705 

015536 

005037 

2706 

015542 

012737 

2707 

015550 

012702 

2708 



2‘ 7 09 

015554 

004737 

2710 

015560 

012702 

2711 

015564 

004737 

2712 

015570 

013701 

2713 

015574 

012702 

2714 



2715 

015600 

004737 

2716 

015504 

005301 

2717 

015606 

301372 

£7ie 

015610 

012702 


ma: i :i 
1 ; : 20 


30A. 1052 


015040 

015014 

007010 

000040 

014535 

014554 

014555 

014555 

014443 

007110 

014557 

007110 

015500 

007124 

035230 

007024 

004000 


0G7S54 

004000 


1 03- JAN-77 00:01 

LA35 OPTION TF.STS 

37350 

37400 ;**#** 

l^O ; 

37500 ; TESTS VEI 

37550 ; Sit 

37500 ; 

37550 ;****• 

37700 -El 

37750 

37800 TEST5: MO' 

3785C MO' 


F07 

PACE 3- IB 


SEC 0083 


» # ♦ ♦ 


TEST5: MOV •TS.RO 

MOV *TOSBLK 

JSR PC. MTYPI 

BIT •mOlTI.I 

BNE 4S 

MOV •HDRSB, I 

MOVB (ROH.H 

MOVB <RQ)*,H 

MOVB ( RQ ) + , HI 

: TYPE INSTRUCTIONS 
tsi : MOV •H0R3.R! 

JSR PC-TY^E 

MOV «h6R4.R 

JSR PC.TYk 

MOV «3i.RS 

JSR PC.ft|AO 

2S: MOV >15000. 

ffi w* 

BIC tORTRIN 

8R 4* _ _ 


VFRTICOL TAB OPTION 

SINGLE LINE TEST REQUIRES OPERATOR INTERVENTION 


. ENABL LSB 


******* 


001354 


001354 


004000 001354 


001354 


37950 
38000 
38050 
38100 
38 ISO 
38200 
38250 
38300 

38400 

38500 

38550 

38500 

38550 

38700 

38750 

38800 

38850 

38900 

38950 

39000 

390SD 

39100 

39150 

39200 


•T5.R0 

»to5blk.rs 

PC. MTYPl 

•m&lti.pcflag 

•H0R5B.R0 
(R0) + ,WRH4S 
(R 0 ) 4 -,h 5 R 448 
(R0)4,H0R4+7 

1 ShOR3.RO 

PC.TY^ES 

•h6r4.ro 

PC.TY^ES 

PC. RE AD 10 

•oAtain.pcflag 

•OATRIN.PCFLRG 


ii^T T U^ T PO^N?|R TO MODULE BLOCK 

;YE| T - BRRNCH°OVFR INTERVENTION 
; SET UP INSTRUCTIONS 


; 5U FOR INTERRUPT TO 3S 
INITIALIZE VECTOR AREA 
; ALLOW IS SEC. 


THIS SECTION HANDLES RECVR INTERRUPTS** 

•Iatain.pcflag I^Kag re§ievS°char. 


FLAG REC 


CHAR. 


; **•*«#*•*••»»#* 




39250 


000002 

015266 

39300 

4J: MOV 

015514 

000010 

39350 

mqv 

□00001 

016032 

39400 

MOV 

016036 


39450 

CLR 

000014 

016034 

39500 

MOV 

000033 


39550 

MOV 



39600 

; ESC-4 RE! 

005270 



JSR 

000064 


39700 

MOV 

006270 



JSR 

016032 


39800 

5S: MOV 

000012 


39850 

6S: MOV 



39900 

; SEND LINE 

006270 



JSR 



40000 

DEC 



40050 

BNE 

000033 


4G100 

MOV 


SUjSSIrS. 

?^ IfCS 

•iF.NAX 


GABS 

•12. R2 

PC.MECHO 

R1 

51 

•ESC.R2 


;SET RETURN TO 4f 


; RESET ALL T ABS 


;GET LINE COUfr 


G07 

IZLAFAO LA36 TERM TST MflCWl 30ftil052 03-JAN-77 00:01 PACE 3-19 

IZLAFfl.Pll 03-JAN-78 11:30 LA3b OPTION TESTS 


2719 

2720 

2721 

2722 

2723 

2724 

2725 
272b 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 
273b 
2737 
2"'38 

2739 

2740 

2741 

2742 

2743 

2744 
2?45 
274b 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 
275b 

2757 

2758 

2759 
27b0 
27bl 
27b2 
27b3 
27b4 
27b5 
27bb 
2 7b7 
27b8 
27b9 

2770 

2771 
377E 


015614 

015620 

015624 

015630 

015634 

015640 

015644 

015652 

015654 

015662 

015670 

015674 

015700 

015704 

015710 

015714 


01571b 

015722 

015726 

015732 

01573b 

015742 

015746 

015752 

015756 

015764 

015772 

01S774 

016000 

016002 


004737 

012702 

004737 

012700 

004737 

Bffi 

001346 

012737 

012737 

012702 

004737 

012702 

004737 

005337 

001371 


013746 

012746 

004737 

012700 

004737 

012700 

004737 

005237 

013737 

023737 

001336 

005337 

001325 

052765 


016010 000207 


016012 

016014 

016016 

016020 

016022 

016024 

016026 

016030 

016032 

016034 

016036 

016040 

0ifc0 u 6 


000 

ooooco 

0G0000 

000000 

000000 

015420 

000000 

000000 

000000 
000000 
000000 
005015 
0201 24 


006270 

000063 

006270 

014427 

007010 


032 


,032 

016O3 U 

1001 

016032 

1001 

016030 


000013 

006270 

000006 

006270 

016030 


016032 

016071 

010006 

016071 

007010 

014427 

007010 

016032 

016032 

016032 

015266 


016030 

016034 


020000 000004 


052012 

020065 


051505 

042526 


40200 

40250 

40350 

40400 

38 IS 8 

40600 

mi 

40750 

40800 

40900 

40950 

41050 

41100 

41150 

41200 

41250 

41300 

41400 

41450 

41500 

41550 

41600 

4 1700 
41750 
41800 
41850 
41900 
41950 
42000 
42050 
42100 
42150 
42200 
42250 

31888 

42400 

42450 

42500 

42550 

42600 

42650 

42700 

42750 

42800 

42850 

42900 


JSR PC . MECHO 

MOV »’3,R2 

ESC-3 SETS ft TAB LOCATION. 

JSR PC. MECHO 

MOV «DAS , RO 

JSR PC.MTYPE 

tifRMA* ; 1 1 TAI 

BNE 55 ;H0 - I 

I MOV il, LINES ; RESET 

MOV II , T55AV1 

K: MOV *13. R2 

SEND A VERT-TAB COMMAND. 

JSR PC.MECHO 

(: MOV «AtK,R2 

SEND A PILL CHARACTER. 

JSR PC.MECHO 

DEC T5SaV1 

BNE 95 

CONVERT NO. OF LINES FOR OUTPUT MS 0. 

MOV LINES, -(SP) 

MOV »T52.-(SP) 

JSR PC^lNaOA 

MOV iTS2.R0 

as ;5U li 

JSR PC.MTYPE 

m tiSi.rss.v, iWLi 

CPIP LINES, MAX ;H TAl 

Sec count jgo i 

III ifoOfC.MFLACSiRS^ 


II TABS YET'' 

HO - BRANCH 
RESET LINE COUNT 

.•FILL COUNT 


; SU LINE OF DASHES 


itWUMEl ** 

; 1 1 TABS DONE’ 

; NO - CONTINUE 
DO 2 PACES TOTAL 
•RE -00 PAGE 
S VSET ATTEN T 


RTS PC 


T05BLK: 


T5SAV: 

T5SAV1: 

LINES: 

MAX: 

TABS: 

TS: 


BYTE 0.2 
WORD 0 
WORD 0 
WORD 0 
WORD 0 
WORD *51 


WORD 0 


ITERATION COUNTS 
CTLCNT 
PASS COUNT 
STATUS FLAGS 
POINTER 
return PC 


WORD 

ASCIZ 


12 v < 12> • TEST 5 VERTICAL TAB 



ATTENTION 5 DONE P--OS 


njrij 


r 


H 07 

CZ^FmO wA3E) term T5T MAC YU 30Ri 1052^ 03-JAN-77 00:01 PP1E 3-20 

CZ^PEP.Pii 03-JPN-~8 11:20 LP36> OPTION TESTS 


2 ~~H 




01 £>071 06>0 0300b0 

0 16>07E, 000 


Cl 6> IOC 


83t4?4 

03006)0 M2950 

38888 


TS2: 


.PSCIZ '00000/ 
:Ssnsl LSB 


SCO C08S 



107 


'Z.-AFAC _A36 'ER M 'ST MAv. > 1 1 30A 1C52 03-JAN-T 00:01 PAGE 3-21 
:ZLAFA. c li 03 JAN ~9 11:20 STORAGE X CONSTANTS 


2778 



2779 



2“80 



2781 



2'82 



2783 

016100 

000000 


016106 

000000 

2784 

016114 

000004 

2785 

016124 

177570 

2786 



2787 



2788 



2789 

016126 

OOOOOO 

2790 

□16130 

OOCQOO 

2791 

C 1 6 1 32 

OOOOOO 

2792 

016134 

OOOOOO 

2793 

016136 

OOOOOO 

2794 

016140 

OOOOOO 

2795 

016142 

OOOOOO 

2796 

016144 

OOOOOO 

2797 



2798 



2799 

□16146 

000204 

2800 

016150 

OOOOOO 

2801 

016152 

OOOOOO 

2802 

016154 

OOOOOO 

2803 

016156 

OOOOOO 

2804 

016160 

OOOOOO 

2805 

016162 

OOOOOO 

2806 

016164 

016114 

2807 

016166 

1 — 

A > 

2808 

01616' 

n * .4 

A ^ 

2809 



2810 




000000 

000000 


43150 

43200 

43250 

43300 

43350 

43400 

43450 

43500 

43550 

43600 

43650 

43700 

43750 

43800 

43850 

43800 

43950 

44000 

440S0 

44100 

44150 

44200 

44250 

44300 

44350 

44400 

44450 

44500 

44550 

44600 

44650 

44~50 

44800 


. SBTTL STORAGE l CONSTANTS 

#*»*#t**#**»*************»‘* t4> 

PROGRAM STORAGE, CONSTANTS. AND VARIABLES 


TEMP: 

INBUF: 

SWR: 


.EVEN 
. WORD 

. BLKW 
177570 


0 , 0 , 0 , 0 . 0.0 


j TEMPORAR i WORK AREA 

; INPUT BUFFER 
; SWITCH REGISTER POlr 


; SWITCH REGISTER POINTER 
MAY BE CHANGED TO 176 
I/O DRIVER WORK AREA #**####*#****♦**♦< 


DLFLAG 
DLADR: 
DLVEC . 
DLOTH; 
OVCRXB 
DVCTXS 
OVCTXB 
TXVEC : 


.WORD 

.WORD 

.WORD 

.WORO 

.WORD 

.WORD 

.WORD 

.WORO 


LINE FLAG WORO 
LINE AOOR WORO 
LINE VECTOR WORO 


fijIOTH: .WORO 132. 

SAVE : . WORO 0 

NEXT: .WORD 0 

INTEST: .WORD 0 

TESTAO: .WORO 0 

ONLIN: .WORD 0 

NXTLIN: .WORD 0 

PTRt INBUF 

DEL: .BYTE 17* 

FF: .BTTE 14 

, E^EN 


GENERAL USE 


LZNC "OTHER WORL 
RECIEVER DATA BUFFER 
TRANSMI STATUS REGISTER 
TRANSMIT DATA BUFFER 
transmit interrupt VEC t CR 


NEXT TEST NO- 
CURRENT TEST 
CERRENT TEST PC. 
CURRENT LINE UNDER TES 
NEXT LINE TO TEST 
INPUT BUFFER POINTER 


r F£R POINTER 


ZLAFAO 

uA3b TERN TST 

MAC >'11 

30AH0521 03- JAN-77 00:01 PA 

ZLAFA. 

Pll 03-JAN-"'8 

11:20 


STORAGE 

S CONSTANTS 

2812 

2813 

2814 





44900 

44950 

45000 

j* * * 

j. * * 

» » « « 

« 1 » t 

2815 





4S050 

LINOO: 

.WORD 

281b 

01bl70 

000000 

177560 

OOOOOO 

45100 

01bl7b 

000000 





.WORD 

2817 

015200 

000000 

175610 

oooooo 

4S150 

L I NO 1 : 


01520b 

000400 




LIN02: 

.WORD 

2818 

015210 

□00000 

175620 

oooooo 

45200 

01521b 

001000 




LIN03: 

.WORD 

2819 

015220 

000000 

175630 

oooooo 

45250 

015226 

001400 





.WORD 

2820 

015230 

000000 

17S6 j r 

□□□□□0 

45300 

LINQ4: 


015235 

□02000 




LINOS: 

.WORD 

2821 

015240 

□00000 

176500 

oooooo 

45350 


015245 

002400 





.WORD 

2822 

015250 

oooooo 

176510 

oooooo 

45400 

LIN05: 


0152S5 

003000 




LIN07 : 

.UORO 

2823 

015250 

oooooo 

175520 

oooooo 

45450 


015255 

003400 





.WORD 

2924 

015270 

oooooo 

176530 

oooooo 

45500 

LIN10: 


015275 

004000 




LIN11: 

.WORD 

2825 

015300 

oooooo 

175650 

oooooo 

45550 


01530b 

0C4400 





.WORD 

282b 

015310 

oooooo 

175660 

oooooo 

45600 

LIN12: 


01531b 

005000 





.WORD 

2827 

015320 

oooooo 

175570 

oooooo 

4S650 

LIN13: 


015325 

005400 





.WORD 

2928 

015330 

oooooo 

175700 

oooooo 

45700 

LIN14: 


015336 

006000 





.UORO 

2829 

015340 

oooooo 

175710 

oooooo 

45750 

LIN1S: 


015345 

006400 





.WORD 

2830 

015350 

oooooo 

175720 

oooooo 

45600 

LIN15: 


015355 

007000 





.UORO 

2831 

015350 

oooooo 

175730 

oooooo 

45850 

LIN17: 


015355 

007400 





• WORD 

2832 

015370 

oooooo 

175740 

oooooo 

45900 

LIN20: 


015375 

010000 





.WORD 

2833 

015400 

oooooo 

176540 

oooooo 

45950 

LIN21 : 


015405 

010400 





.WORD 

2834 

015410 

oooooo 

176550 

oooooo 

46000 

LIN22: 


015415 

011000 






2835 

2e3b 

015420 

oooooo 

176560 

oooooo 

46050 

46100 

LIN23: 

.WORD 


015425 

011400 





.WORD 

2937 

015430 

oooooo 

176570 

oooooo 

46150 

LIN2M: 


015436 

012000 





.UORO 

283e 

015440 

oooooo 

176600 

oooooo 

46200 

LIN25: 


015446 

012400 


.WORD 

2939 

015450 

oooooo 

176610 

oooooo 

46250 

LIN25: 


□ 15455 

013000 






2e4Q 

015450 

oooooo 

175750 

oooooo 

46300 

LIN27; 

.WORD 


□15455 

013400 




.WORD 

2841 

015470 

oooooo 

175760 

oooooo 

46350 

LIN30: 


015475 

014000 





28-2 

01550C 

oooooo 

175770 

oooooo 

45400 

LIN31: 

.WORD 


SEG 0087 


JO 7 

jE 3-22 

• •••••*•••• 
LINE INTERFACE TABLE 

*********** 

0, 177550,0,0 

0, 175510,0,400 

0,l75b20, 0,1000 

0, 175530,0, 1400 

0, 175b40, 0, 2000 

0, 17b500, 0,2400 

0. 176510,0,3000 

0,176520,0,3400 

0,176530,0,4000 

0,175650,0,4400 

0,175660.0,5000 

0,175670,0,5400 

0,175700.0,6000 

0,175710.0.6400 

0,175720.0,7000 

0,175730,0,7400 

0,175740.0.10000 

0.176540.0.10400 

0,176550.0.11000 

0,176560,0.11400 
0,176570.0,12000 
0,176600.0.12400 
0.176610.0,13000 
0,175750.0.13400 
0,175760.0,14000 
0, 175770,0. 14400 


***************** 
• •••ft************ 

; CONSOLE INTERFACE 
; OLl 1-C, D,E uINES 


FIRST WORD : F LAGS 
BIT IS * DVC PRESENT 
BIT 7 * OVC SELECTED 
BIT 4 * ABORT FLAG 
BIT 3 THRU 
BIT 0 = ERROR COUNT 


THIRD HORC WILL CONTAIN 
THE DEVICES INTERRUPT 
VECTOR SUPPLIED BY PROGRAN 


;U0R0 FOUR : 

;BITS 7 THRU 0 
; WILL BE SET TO 
: UNIQUE SELECT CODE 

; BITS 13 ? HR„ 3 


;Zi-AFAO ^A3fc TERP TST MACY11 
CZ^AFfl.FH 03-JAN-78 11:20 



016506 

014400 


2843 

016510 

000000 

176000 


016516 

015000 


2844 

016520 

000000 

176010 


016526 

015400 


2845 

016530 

000000 

176020 


016536 

016000 


2846 

016540 

000000 

176030 


016546 

016400 


2847 

016550 

000000 

176040 


016556 

017000 


2848 

016560 

000000 

176620 


016566 

017400 


2848 

016570 

000000 

176630 


016576 

020000 


2850 

016600 

000000 

176640 


016606 

020400 


2851 

016610 

000000 

176650 


016616 

021000 


2852 

016620 

000000 

176660 


016626 

021400 


2853 

016630 

000000 

176670 


016636 

022000 


2854 

016640 

000000 

176050 


016646 

022400 


2855 

016650 

000000 

176060 


016656 

023000 


2855 

016660 

000000 

176070 


016666 

023400 


2857 

016670 

000000 

176100 


016676 

024000 


2858 

016700 

000000 

176110 


016706 

024400 


2858 

016710 

000000 

176120 


016716 

□25000 


2850 

016720 

000000 

176130 


016726 

025400 


2851 

016730 

000000 

176140 


016736 

026000 


2862 

016740 

□00000 

176150 


016746 

0264IXI 


2953 

016750 

000000 

176160 


016756 

027000 


2B54 

016760 

000000 

176170 


016766 

027400 


2865 

016770 

177777 


2565 





000000 

46450 

LIN32: 

. WORD 

000000 

46500 

LIN33: 

.WORD 

00Q000 

46550 

LIN34: 

. WORD 

000000 

46600 

LIN3S: 

, WORD 

000000 

46650 

LIN36: 

. WORD 

000000 

46700 

LIN37: 

. WORD 

000000 

46750 

LIN40: 

.WORD 

000000 

46800 

LIN41 : 

.WORD 

000000 

46850 

LIN42: 

.WORD 

oooooo 

46900 

LIN43: 

.WORD 

000000 

46950 

LIN44: 

.WORD 

oooooo 

47000 

LIN4S: 

.WORD 

oooooo 

47050 

LIN46: 

.WORD 

□00000 

47100 

LIN47: 

. WORD 

oooooo 

47150 

LXN50: 

.WORD 

nooooo 

47200 

LINS1: 

.WORD 

oooooo 

472SQ 

LINS2: 

.WORD 

oooooo 

47300 

LINS3: 

.WORD 

oooooo 

47350 

LINS4: 

.WORD 

oooooo 

47400 

LIN5S: 

.WORD 

OOOOOO 

47450 

LINSfc: 

.WORD 

oooooo 

47500 

LINS7! 

• WORD 


47550 

47600 

T ABEND: 

. WORO 


=E"- CC88 


K07 

IE 3-23 

0, 176000.0, 15000 
0,176010,0.15400 
0, 175020,0, 15000 
0, 1/5030,0, 15400 
0, 175040, 0, 17000 
0,175520,0,17400 
0,175530,0,20000 
0, 176540,0,20400 
0,176650,0,21000 
0,176660,0,21400 
0,175570,0,22000 
0,176050,0,22400 
0,175060,0,23000 
0,175070,0,23400 
0,176100,0,24000 
0,176110,0,24400 
0.176120.0.25000 
0. 176130,0.25400 
0,175140,0,26000 
0,176150,0,26400 
0, 176160, 0.27000 
0.176170.0,27400 
-l 




L07 

3-2H 


sec. ooes 


MESSAGES 

BEX 

< 1S> < 12>/CZLAFAO LA3fc OPTIONS TESTS/ 
< 1S>< 12> /RESTART AT 1372/ 

< IS > < l5> < l2> < 12> 

/COMMAND SUMMARY : /< 15> < 12> ' 12> 

^S SINGLE LINE MOOE/< 1S> U2>< 1 > 

/fl MULTI-LINE MOOE/< 15> < l2> < 1 > 

/O SEQUENCE TESTS/< 1S> < 12> < 1> 

✓RN RUN TEST **fC /<1S><12><1> 

✓ DN DROP LINE N** /<IS><I2><1> 

/AN ADD LINt "N“ /<IS><12><I* 

/ L LOOP ON ERROR /<1S>'12><1> 

H HATT ON £RRQR_/< if > < 1> 


* * ♦ * 


<i§><12><12>/L 

< iS> < le> 

/M 17/ 


CLEAR ; feSCTS H l L COMMANOS/< 1S>< l2x 1 
INHISlt RBRSATS /< 15> < 12> < 1 > 

PRINT EfitCsR REPORTS /<15><l2xl> 

rfSrsgsr°vij?b^ 5><12 " ia 


- uuuu / 

$ Sa W^«I!S.?9. L, ’ e D0/<15>,15 “' 71 







wt /<,S,<1S> 

»<7> 

FOR TEST/< IS> < 12><7> 
LS> < 12> 


<M><i»<r><8> 

<M> < I> <3> <0OO> 
<N><1><3><2> 



0 

START 














"C CC3 


ICNT r 

INSUF 

INHR = 

INHRPTr 

IHTEST 

IN TRAP 

10TV£C= 

Up 2 = 

I TRAP = 
LDONE s 
LF * 
LIN 

LI NEMO 

LINES 

LINESE 

LINMON 

LINOO 

LINOl 

LINOS 

LIN03 

LJNOH 


LlNlO 

LIN11 

L1N12 

LIN13 

LIN14 

LIN1S 

LlNlfc 

LIN17 

LIN23 

bliSi 

hi® 

LIN2S 

t m 

LIN30 

til 
bilS 
tit 

LIN37 

LIN40 

LINH1 

L1N42 

LINM3 


17^77b 

016114 

000040 

020000 

gibis4 

007182 

000020 

SSH 

104004 

000400 

000012 

017733 

00137C 

016032 

002204 

002110 

016170 

016200 

016210 

016220 

016230 

016240 

8itS8 

016270 

016300 

81l|i8 

016330 

016340 

Hits 

16370 


4i£ 

81K88 

016440 

16470 

itH 

81IIs8 

016560 

016S70 

016600 

016610 

016620 


l I N44 
L.IN45 
l IN46 
i_ IN47 
LIN50 
wINSl 
LIN52 
LIN53 
LIN54 
LINSS 
LIN56 
LIN57 
LOQPC = 

loopoe= 

00P1 

u00P2 

Li 

L3 

MAC HER 

MAJOR = 

MAX 

HECHO 

MtRR - 

MERRN = 

MFLAGS= 

MSAVE 

MTU 

MTU1 

MTYPE 

MULTI = 

NEUMOO= 

N£UTST= 

NEXT 

NOOP = 

NOP = 

NREO = 

NX^L^N 
OCTALC 
ONLIN 
02ASC 
PASO NT =. 
PCFLAG 
PIRQ = 
PIRQVE= 
POINT = 
PR I 

PRINT = 
PRINTTr 
PRIO = 
PRIM = 
PRI7 r 
PROG I C 


016630 
01bfc40 
016650 
016660 
016670 
0167CG 
016710 
016720 
016730 
016740 
016750 
016760 
000100 
040000 
001454 
001466 
017730 
017051 
000004 
003000 
016034 
006270 
100000 
100377 
000004 
006646 
002432 
002 '45 2 
007010 
000040 
001000 
002000 
016152 
000240 
000240 
000340 


116162 

011520 

016160 

007566 

000002 

001364 

177772 

000240 

900006 

010424 

00QC2C 

010000 

OOOOOC 

000200 

000340 

016772 


NO 7 


CZLAFAO LA36 TERM TST MAC Y 1 1 30A(1052> 03-JAN-77 00:01 PAGE 4-1 

CZLAFA.P11 03- JAN-78 11:50 SYMBOL TABLE 


PRTLTB 

007212 

5UR 


018124 

PRTTBLa 

104002 

SWRTST 

003008 

PRO = 

PRi a 

000000 

000040 

SUTEST 

SWO 

- 

000172 

000001 

PR2 a 

PR3 a 

000100 

000140 

SWGO 

SU01 

£ 

88888^ 

PR4 a 

000200 

SU02 

5 

000004 

PR5 = 

000240 

SU03 

£ 

000010 

PRb = 

000300 

SW04 

£ 

000020 

PR7 a 

000340 

SW05 

£ 

000040 

PS = 

177778 

SU06 

£ 

000100 

PSW a 

177776 

SW07 

£ 

000200 

PT9 

01blb4 

SUOB 

£ 

000400 

PWRVECa 

000024 

SUOS 

£ 

001000 

RDSAV 

003776 

SU1 

£ 

000002 

ROY 

020123 

SU10 

£ 

002000 

REAOIO 

007024 

sun 

£ 

004000 

REAOKB 

003486 

SU12 

£ 

010000 

RE AOS 

007124 

SU13 

£ 

020000 

READY = 

000200 

SW14 

£ 

040000 

REPORT 

005438 

SU15 

£ 

100000 

RESTRT 

001372 

SW2 

£ 

000004 

RESVEC= 

000010 

SU3 

S 

0000 10 

RPC a 

000010 

SW4 

£ 

000020 

RUB 

010384 

SU5 

£ 

000040 

Rb aVlOOOOOb 

SU6 

£ 

000100 

000200 

R7 =-/.000007 

SU7 

£ 

SAVE 

018150 

SU8 

£ 

000400 

SCOOE 

020421 

SWS 

£ 

001000 

SEC 

010434 

SI 


020117 

SECHO 

008854 

TAB 


015318 

SEL 

000200 

TABOA 


010148 

SELERR 

005100 

TABENO 

018770 

SEQ 

000100 

TABL1 


011176 

SET 10 

005600 

TABL4 


015270 

SI a 

000017 

TABS 


018036 

SO a 

0000 16 

TBITVE 

£ 

000014 

SOH a 

000001 

TDONE 

£ 

020000 

SSUR 

000176 

TEMP 


018100 

STACK a 

001100 

TEMPF 


005002 

STACK2 

020434 

TEMPT 


005004 

STACK3 

020574 

TEST AO 

016156 

START 

001102 

TESTNO 

001368 

START2 

001172 

TESTO 


010164 

START3 

001230 

TEST 1 


010444 

STKLMT a 

177774 

TEST2 


011526 

STRAP 

007510 

TEST3 


013700 

STX = 

000002 

TEST4 


014852 

SUTEST 

002056 

TESTS 


015354 

SU 

020215 

TIMER 


007582 

SWCTL a 

0000 20 

TKB 

£ 

177562 

SULINE 

000174 

TKS 

£ 

177580 


TKV = 

TKVEC a 

TPB = 

TPS = 

TPVEC * 

TRAPVEa 

TRTVEC* 

TSCCMT 

TSCPTR 

TSTBL 

TSTCTL 

TSTMON* 

TXTRAP 

TXVEC 

TYPAMS 

TYPE * 

TYPES 

TO 

TOOBLK 

Tg ^ X 

Tl" 

T1TEHP 

TU 

T12 

111 

tIbuf 

T2CNT1 

T2CNT2 

T22 

w* 

3A 



gooobo 
000080 
177S68 
177584 
?4 



8818 % 
11448 
JOOOO 
10741b 
U8144 
130b 
104000 
107110 
10388 

If 


ill 

eisis 

014m 

014*0 

oilllo 


ABS. 020672 


000 


£0 CC91 


T4SAV1 

T4SAV2 

T41 

T42 

tIsav 

TSSAVi 

TS1 

uISate 

WIDTH 

SBGNLEa 



015282 
01 5284 
014b6b 
014702 

am 

018030 

015420 

mib 

mm 

10400 
‘310 
. _ J401 
000170 



SNSKO = 
SNSK1 = 
SNSKlOa 
SNSK11= 

I NSK12= 
HSK2 a 
SNSK3 = 
SNSK4 = 
SNSKS = 
SNSKb = 
SNSK7 = 
ISRVLEa 
ISSKO = 
SSVPC a 
SSUR a 
ITACLEa 

ITAGmJa 
STEHP = 
STN = 
S T 5K0 = 
ST SKI = 
STSKICa 
STSKlla 
STSK2 a 
STSK3 a 
STSK4 a 
SISKS a 
STSKb a 
STSK7 = 
SSARGCa 
SSSYTEa 
SSCASEa 
SSOST = 
SSCLOCa 
SSERTLa 
SSFLAGa 
SSFROrta 

SSLOC = 

SSLOCNa 
SSREG a 
SSRETUa 
SSRTNla 
SSRTN2a 
SSSRC a 
SSTGSVa 
SSTCSla 
SSTGS2= 
SSTO a 
SSSTAGa 


000300 

000110 

000110 

000110 


118 


000210 

000110 

000110 

000110 

000110 

177777 

*0023 

000204 

180000 

177777 

050040 

000300 

000001 

05C034 

CS0C37 

050023 

050024 

050024 

050023 

050017 

050021 

000000 

000402 

000000 

000000 

000402 

000000 

OOCOCl 

000000 

013078 

000000 

177777 

000000 

050000 

050001 

000000 

000000 

000000 

000000 

000000 

050000 

020872 


< t o 

r jr j 


^AFAO uA3fe TERM T5T MAC > 11 30Ail053> 03-JAN-7? 00:01 

l_AFA. C 1 1 03- JAN-78 11:30 SYMBOL TABLE 


j ERRORS DETECTED: 0 



B08 

PA<1E 4-2 


^EG CC92 



